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




Вниз

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


lightix   (2002-02-18 13:22) [0]

Подскажите как сделать при нажатии клавиш в ListBox чтобы поиск был не по первой букве, а по подстроке?



Digitman   (2002-02-18 13:27) [1]

По какой подстроке ? Как именно ты задаешь/хочешь задавать модель поиска ?



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;



lightix   (2002-02-18 13:39) [3]

Сорри, промахнулся - не в ListBox а в ComboBox, хотя и в ListBox тоже.
Короче, ситуация такая: Находясь в ComboBox нажимаю букву "а" и мне из списка подтягивается первое слово начинающееся с буквы "а". А мне нужно чтобы когда я потом нажму "б" то чтобы подтянулось слово начинающееся с "аб"...
PS Если есть возможность свяжитесь со мной по асе 117041902...



MBo   (2002-02-18 13:43) [4]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1013158583&n=0



Digitman   (2002-02-18 13:50) [5]

это называется - механизм инкрементального поиска



nikols   (2002-02-18 13:54) [6]

procedure TForm1.Edit1Change(Sender: TObject);
begin
SetListBoxIndex(Edit1.Text, 0);
end;




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




Наверх





Память: 0.72 MB
Время: 0.021 c
1-19224           hair_fly              2002-02-19 12:54  2002.03.07  
Как записать полную информацию о форме в stream ?


1-19163           Pastor                2002-02-18 10:46  2002.03.07  
Совместный доступ к файлам


3-19114           af                    2002-02-11 16:29  2002.03.07  
Задумал я переделать базу работавшую под досом


4-19393           bohdan_k              2002-01-07 21:06  2002.03.07  
Как загрузить файл со своим зарегестрированным заранее расширением в свою программу по щелчке на нём


3-19110           Ser_Kham1             2002-02-11 14:20  2002.03.07  
Чтение из таблицы Oracle