Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

lightix © (2002-02-18 13:22:00)
Подскажите как сделать при нажатии клавиш в ListBox чтобы поиск был не по первой букве, а по подстроке?

nikols (2002-02-18 13:54:00) [1]
procedure TForm1.Edit1Change(Sender: TObject);
begin
SetListBoxIndex(Edit1.Text, 0);
end;

Digitman (2002-02-18 13:50:00) [2]
это называется - механизм инкрементального поиска

MBo (2002-02-18 13:43:00) [3]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1013158583&n=0

lightix (2002-02-18 13:39:00) [4]
Сорри, промахнулся - не в ListBox а в ComboBox, хотя и в ListBox тоже.
Короче, ситуация такая: Находясь в ComboBox нажимаю букву "а" и мне из списка подтягивается первое слово начинающееся с буквы "а". А мне нужно чтобы когда я потом нажму "б" то чтобы подтянулось слово начинающееся с "аб"...
PS Если есть возможность свяжитесь со мной по асе 117041902...

nikols (2002-02-18 13:34:00) [5]
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;

Digitman (2002-02-18 13:27:00) [6]
По какой подстроке ? Как именно ты задаешь/хочешь задавать модель поиска ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »