|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Заполнение ComboBox
Я понимаю, что вопрос довольно простой, но все же. Как сделать, чтобы при редактировании ComboBox его лист заполнялся данными из таблицы которые удовлетворяют Сombobox.Text+'%'. При чем происходило, чтобы это и при удалении символов из СomboBox.
Я написал следуещее: procedure TfrmNewZayavka.ComboBox1Change(Sender: TObject); Var i:Integer; begin Query1.Close; Query1.ParamByName('Name_param').Value:=ComboBox1. Text+'%'; Query1.Open; Query1.First; for i:=1 to Query1.RecordCount do begin Combobox1.Items.Add(Query1.FieldByName('Zakazchik' ).AsString); Query1.Next; end; end; Sql запрос следующий: SELECT Zakazchik FROM "Zakazchik.db" Country WHERE (upper(Zakazchik) Like upper(:Name_param)) но нужно добавить чтобы при каждом вводе лист ComboBox очищался, я пытался Написать ComboBox1.Items.Clear но при этом удаляется текст в ComboBox . И событие ONChange не реагирует на удаление Если можно напишите поподробней. Заранеее блогадарен |