[delpi12]

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

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

Код:

Items.indexof('...

[delpi12]

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

Код:

Items.indexof('...

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

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

Код:

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 в соответствии с фильтром.

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