Текущий архив: 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.036 c