Hallo Leute,
in meiner Firebird-Datenbank möchte ich ein Date-Feld über ein DBEdit füllen. Nun würde ich gern in das DBEdit auch ein 'h' eingeben können, welches dann in das aktuelle Datum umgewandelt wird. Analog dazu 'g' und 'm' für gestern und morgen. Ich versuche es mit dem onExit-Ereignis der DBEdit-Komponente wie folgt und erhalte beim Verlassen der DBEdit-Komponente eine
Exception der Klasse EConvertError mit der Meldung ''h' ist kein gültiges Datum'.
Delphi-Quellcode:
procedure TForm1.DBEditVDatumExit(Sender: TObject);
begin
dat := DBEditVDatum.EditText;
if dat = 'h' then
DBEditVDatum.EditText := DateToStr( Date());
end;
Ersetze ich das 'h' durch '' und lasse das DBEdit frei, fügt mir meine Anwendung das aktuelle Datum ein!?
Kann mir jemand helfen?