Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Как сделать поиск подстроки в ListBox?   Найти похожие ветки 

← →
nikols   (2002-02-18 13:34) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
SetListBoxIndex("Proba", 0);
end;

procedure TForm1.SetListBoxIndex(Str: String; StartIndex: Integer);
var
i: Integer;
begin
for i := StartIndex to ListBox1.Items.Count - 1 do
if StrPos(PChar(ListBox1.Items[i]), PChar(Str)) <> nil then
begin
ListBox1.ItemIndex := i;
exit;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c