Текущий архив: 2004.08.15;
Скачать: CL | DM;
Вниз
Как сделать хитрый поиск по листбоксу ? Найти похожие ветки
← →
Дрейфусятина (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
Из комбобокса лишние строки не удаляюцца. Просто нужная становится текущей
← →
BDenis © (2004-07-30 14:41) [6]Можно так:
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;
← →
Sandman25 © (2004-07-30 14:46) [7][6] BDenis © (30.07.04 14:41)
Не нужен MyStringList.Clear сразу после
MyStringList := TStringList.Create;
← →
BDenis © (2004-07-30 14:47) [8]Ну в принципе да, не нужен, забыл удалить...
Страницы: 1 вся ветка
Текущий архив: 2004.08.15;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.044 c
