Цитата:
Сообщение от merdashka
Я понимаю, что вопрос довольно простой, но все же. Как сделать, чтобы при редактировании 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 не реагирует на удаление
Если можно напишите поподробней. Заранеее блогадарен
|
Используй Dev Express
__________________
---------------------------------------------
Программирование - не профессия, а стиль жизни
|