TDBMemo & TDBComboBox

[Tim Henford]

Hallo,

folgendes Problem:
ich habe die TDBComboBox mit AutoComplete auf meiener Form und möchte nun, dass wenn ich ein Kleinbuchstabe "a" eingebe, dieses zu ABC ergänzt wird, wie es in der DB steht, es wird aber zu "aBC" ergänzt.
Meine Idee war folgende: Beim Verlassen der Box soll geschaut werden, ob es einen Eintrag in der Box schon gibt, und wenn ja, genau dieser übernommen werden.

Das funktioniert auch, wird aber so nicht in der DB abgelegt. In meiner DBComboBox wird zwar der Text gesetzt, aber nicht der Eintrag in der DB aktualisiert.

Delphi-Quellcode:

procedure TForm1.DBComboBox1Exit(Sender: TObject);
begin
  if (Sender as TDBComboBox).Items.IndexOf((Sender as TDBComboBox).Text) > -1 then
    (Sender as TDBComboBox).Text:= (Sender as TDBComboBox).Items.Strings[
                                   (Sender as TDBComboBox).Items.IndexOf((Sender as TDBComboBox).Text)];
end;

Was könnt ich da machen?

Folgendes funktioniert aber mit einer TDBMemoBox wie gewollt -was ist da der Unterschied?

Delphi-Quellcode:

procedure TForm1.DBMemo1Exit(Sender: TObject);
begin
  (Sender as TDBMemo).Text:= StringReplace ((Sender as TDBMemo).Text, '","', ''',''', [rfReplaceAll]);
end;

Danke Tim