Autovervollständigung.

[Akut-Programming]

Mit diesem Code werden alle Einträge eine Spalte in eine normale ComboBox, keine DBComboBox geladen.

Delphi-Quellcode:

Query1.Active:=false;
 Query1.SQL.Clear;
 Query1.SQL.Add('SELECT suchbegriffe from tabelle1 WHERE UPPER (suchbegriffe) LIKE UPPER (''%'+Edit2.Text+'%'')');
 Query1.ExecSQL();
 Query1.Active:=true;

ComboBox1.Items.Clear;
Query1.First;

while Query1.Eof=false
do begin  
  ComboBox1.Items.Add(Query1.FieldByName('suchbegriffe').AsString);
  Query1.Next;
end;

Gruß,