Цитата:
|
Сообщение от Uniq!
...Набираем первые пару символов, остатки подставляются автоматически из ... ну допустим какого-то поля БД...
|
Можно так, напрямую, но лучше через таймер, с задержкой, чтоб успеть что-то набить в Edit
Код:
procedure TForm1.Edit1Change(Sender: TObject);
var
s : string;
begin
s:= Edit1.Text;
if length(s) = 0 then exit;
tbl.Locate('FieldName', s, [loPartialKey]); // поиск по таблице
Edit1.Text:=tbl.FieldValues['FieldName']; // вывод найденого
end;