Hallo,
ich habe in meinem Formular eine DBEdit-Komponente, die auf Date-Feld in einer
IB-
DB zugreift. Wenn ich ein Datum eingebe, muß ich es in der Form '23.03.2006' eingeben, da sonst beim weiterspringen in eine andere DBEdit-Komponente eine Fehlermeldung verursacht wird. Ich würde aber gern die Möglichkeit haben, das Datum in 3 verschiedenen Formaten einzugeben.
Hier die Formate:
'23.03.2006'
'23032006' und
230306'
Jetzt habe ich in meiner unendlichen Naivität gedacht, es ginge mit einer einfachen if-Abfragen:
Delphi-Quellcode:
procedure TFormVeranstaltung.DBEditVDatumExit(Sender: TObject);
var dat :string;
begin
if length(DBEditVDatum.EditText) = 6 then
DBEditVDatum.EditText := copy(DBEditVDatum.EditText,1,2) + '.' +
copy(DBEditVDatum.EditText,3,2) + '.20' + copy(DBEditVDatum.EditText,5,2);
if length(DBEditVDatum.EditText) = 8 then
DBEditVDatum.EditText := copy(DBEditVDatum.EditText,1,2) + '.' +
copy(DBEditVDatum.EditText,3,2) + '.' + copy(DBEditVDatum.EditText,5,2);
end;
Kann mir jemand einen Tip geben, wie ich das Problem lösen kann???
