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

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

[delpi12]

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

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

Код:

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]

проехали...

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

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

Код:

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;