Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.51 MB
Время: 0.029 c