| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

поиск в ListBox [D7]

vova3085 ©   (2005-07-06 23:22:00) 

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

---

vova3085   (2005-07-07 11:29:00) [1]

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

---

P.N.P.   (2005-07-06 23:35:00) [2]

самое простое:
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;

---

Наверх