Как сделать хитрый поиск по листбоксу ?

← →
Дрейфусятина (2004-07-30 11:38) [0]

Имеется Edit находящийся прямо над ListBox-ом,
Мне надо сделать так чтобы при вводе текста в Edit, в ListBox-е
оставались только элементы начинающиеся с быкв(ы) введеных в Edit. Как это сделать я не знаю. Помогите плийз, очень надо.

← →
Sandman25 © (2004-07-30 11:41) [1]

Пробегаться по ListBox.Items и удалять все неподходящие.

← →
Дрейфусятина (2004-07-30 13:13) [2]

Я знаю что надо пробегаться, только после пробежки у меня остается только один элемент. Можно примерчик?!!!

← →
clickmaker © (2004-07-30 13:22) [3]

> Дрейфусятина (30.07.04 11:38)

Держать копию строк в отдельном стринглисте, при вводе в едит, очистить листбокс и добавлять туда из копии строки, соответствующие критерию

← →
Anatoly Podgoretsky © (2004-07-30 13:33) [4]

Это называется ComboBox

← →
clickmaker © (2004-07-30 14:04) [5]

> [4] Anatoly Podgoretsky © (30.07.04 13:33)
> Это называется ComboBox

Из комбобокса лишние строки не удаляюцца. Просто нужная становится текущей

Можно так:
var MyStringList: TStrings; procedure TForm1.CreateList; begin MyStringList := TStringList.Create; MyStringList.Clear; MyStringList.Append ("11"); MyStringList.Append ("12"); MyStringList.Append ("21"); MyStringList.Append ("31"); MyStringList.Append ("33"); end; procedure TForm1.Edit1Change(Sender: TObject); var i: BYTE; begin ListBox1.Items.Clear; for i := 0 to MyStringList.Count - 1 do if Pos (Edit1.Text, MyStringList.Strings [i]) = 1 then ListBox1.Items.Append (MyStringList.Strings [i]); end; procedure TForm1.DestroyList; begin MyStringList.Free end;

Ну в принципе да, не нужен, забыл удалить...

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