[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: пользуемся тегами!!!