[delpi12]

поиск в листбох ?

[M.A.D.M.A.N.]

Код:

1	Items.indexof('...

[delpi12]

Сообщение от M.A.D.M.A.N.

Код:

как сделать чтобы при введение в Edit было найдено совпаденные симбволы другие исчезли

у меня такой код для поиска при введения в edit3 находит и отображает первый элемент, который начинается с заданной строки , но когда очисту edit3 не отображается старые введенные стороки помогите пожалуста

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Edit3Change(Sender: TObject); var i,k: Integer;     s: array of String; begin   SetLength(s,listbox1.Items.Count);   if edit1.text <> '' then begin     k:=-1;     for i:=0 to listbox1.Items.Count-1 do       if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin         Inc(k);         s[k]:=listbox1.Items.Strings[i];       end;     if k>=0 then begin       listbox1.Clear;       for i:=0 to k do listbox1.Items.Add(s[i]);     end ;    if edit3.Text='' then ...................................   end  ;   end;

lmikle: пользуемся тегами!!!

[poli-smen]

Сообщение от delpi12

у меня такой код для поиска при введения в edit3 находит и отображает первый элемент, который начинается с заданной строки , но когда очисту edit3 не отображается старые введенные стороки помогите пожалуста

И не отобразятся - ты же удаляешь из ListBox-а отфильтрованные строки, откуда же они потом возьмутся? Нужно хранить исходный список отдельно в неизменном виде (например в глобальном динамическом массиве) и уже из него добавлять строки в ListBox в соответствии с фильтром.

[delpi12]

Сообщение от poli-smen

И не отобразятся - ты же удаляешь из ListBox-а отфильтрованные строки, откуда же они потом возьмутся? Нужно хранить исходный список отдельно в неизменном виде (например в глобальном динамическом массиве) и уже из него добавлять строки в ListBox в соответствии с фильтром.

а как сделать ? помоги брат

[delpi12]

помогите сделать поиск в лисбох

у меня код такой

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Edit3Change(Sender: TObject); var i,k: Integer;     s: array of String; begin   SetLength(s,listbox1.Items.Count);   if edit1.text <> '' then begin     k:=-1;     for i:=0 to listbox1.Items.Count-1 do       if Pos(edit1.text,listbox1.Items.Strings[i])>0 then begin         Inc(k);         s[k]:=listbox1.Items.Strings[i];       end;     if k>=0 then begin       listbox1.Clear;       for i:=0 to k do listbox1.Items.Add(s[i]);     end ;    if edit3.Text='' then ...................................   end  ;    end;

Админ: 3-х дневный бан за неумение оформлять код.

[NumLock]

проехали...

[Страдалецъ]

Вот вам вариант с фильтром:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Edit3Change(Sender: TObject); var   i: Integer; begin  ListBox1.Items.BeginUpdate;  ListBox1.Clear;  for i := 0 to SrcList.Count - 1  do if Copy(SrcList.Strings[i], 1, Length(Edit3.Text)) = Edit3.Text     then ListBox1.Items.Add(SrcList.Strings[i]);  ListBox1.Items.EndUpdate; end;   procedure TForm1.FormActivate(Sender: TObject); begin  SrcList := TStringList.Create;  SrcList.Assign(ListBox1.Items); end;