Текущий архив: 2007.05.27;
Скачать: CL | DM;
Вниз
Поиск в ListBox Найти похожие ветки
← →
SCz (2007-03-29 15:17) [40]With lbFl do
begin
for i := 0 to (Items.Count - 1) do
begin
if Pos(AnsiUpperCase(eSearch.Text), AnsiUpperCase(Items[i])) <> 0 then
begin
ItemIndex := i;
lbFl.SetFocus;
Exit;
end;
end;
end;
Страницы: 1 2 вся ветка
Текущий архив: 2007.05.27;
Скачать: CL | DM;
Память: 0.52 MB
Время: 0.048 c