Автозаполнение Combobox

@tsareva · Регистрация: 22.12.2017

Author24 — интернет-сервис помощи студентам

Доброго утра! вопрос простой, но не получается. есть Combobox, сделала для него автозаполнение - при наборе букв с клавиатуры предлагает варианты.
А как сделать, если, например, не найдено совпадений? данные Combobox из базы.
попробовала так, не получилось:

Delphi

procedure TFormAddField.cmbEnumerationKeyPress(Sender: TObject; var Key: Char);
var i, SearhingString: string;
begin
if (Key<=#192)and(Key<>' ')and(Key<>#8) then key:=#0 ;
with StdMainForm.ADOQuery do begin
   if (StdMainForm.ADOQuery.SQL.Text='Select * from ListValues where like '+QuotedStr('%'+cmbEnumeration.Text+'%')) then
    try Open
    except
     Showmessage ('Совпадений не найдено!');
    end;
  end;
 end;

@qwertehok · 29.05.2018, 16:05

это неправильный подход - на каждую буквы выдавать ShowMessage
я бы предложил такое - человек вводит 3 первые буквы и тогда идет запрос в БД который по первым 3 буквам фильтрует поле. Далее из всех выбранных слов берем 4ю букву (или несколько букв) и ждем от пользователя то что он введет.
если он ввел букву из списка, то опять делаем запрос в БД уже по 4м буквам и запоминаем пятую.
а если таких букв нет, то не даем пользователю ее ввести.

@tsareva · 30.05.2018, 09:47 **[ТС]**

qwertehok, спасибо за идею!

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	29.05.2018, 16:05	2
	это неправильный подход - на каждую буквы выдавать ShowMessage я бы предложил такое - человек вводит 3 первые буквы и тогда идет запрос в БД который по первым 3 буквам фильтрует поле. Далее из всех выбранных слов берем 4ю букву (или несколько букв) и ждем от пользователя то что он введет. если он ввел букву из списка, то опять делаем запрос в БД уже по 4м буквам и запоминаем пятую. а если таких букв нет, то не даем пользователю ее ввести. 0

@tsareva 0 / 0 / 0 Регистрация: 22.12.2017 Сообщений: 218
	30.05.2018, 09:47 [ТС]	3
	qwertehok, спасибо за идею! 0