Autovervollständigung.

[Hansa]

Mann o Mann. Hier ist der ganze Source :

Delphi-Quellcode:

  EingDM.ArtDS.Close;
  EingDM.ArtDS.SelectSQL.Text := 'SELECT NR,BEZ FROM ART WHERE UPPER (BEZ) LIKE UPPER (''%'+Edit1.Text+'%'') ORDER BY NR';
  EingDM.ArtDS.Open;

EingDM ist ein Datenmodul. Kann man auch weg lassen. ArtDS ist ein DataSet. Dann habe ich noch ein DBGrid samt DataSource, um zu sehen, was passiert. Und der Dreizeiler steht im OnkeyPress eines Edits. 8) Allerdings ist mir noch aufgefallen, daß der zuletzt eingegebene Buchstabe ignoriert wird. Wieso ? Beim ersten Versuch habe ich allerdings auch nichts gesehen, weil ich dank C+P zweimal close drin hatte.