Скачать: CL | DM;

поиск в ListBox   Найти похожие ветки 

← →
vova3085   (2005-07-06 23:22) [0]

Здравствуйте всем!!!
У меня такой вопрос: как осуществить поиск текста в ListBox-е, причём надо, чтобы искал не только сначала слова, но и в середине слова.........

---

← →
P.N.P. ©   (2005-07-06 23:35) [1]

самое простое:
procedure FindItems(what:string);
var
 i:integer;
 begin
   {допустим, найденное будем кидать во второй листбокс}
   ListBox2.Clear;
   for i:=0 to Pred(ListBox1.Items.Count) do
     if AnsiPos(what,ListBox1.Items[i])>0 then
       ListBox2.Items.Add(ListBox1.Items[i]);
  end;

---

← →
vova3085   (2005-07-07 11:29) [2]

Большое спасибо!!!!!!!!!
Всё работает.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c