поиск в 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]

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

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