Форум: "Основная";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Внизпоиск в 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 вся ветка
Форум: "Основная";
Текущий архив: 2005.07.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.015 c