Hallo!
Ich will überprüfen, ob in einem Edit ein korrektes Datum eingegeben wurde. Mein Edit akzeptiert genau 6 Ziffern. Diese sollen dann im Format yymmdd in ein Datum umgerechnet werden. Zur Zeit habe ich das so gelöst:
Delphi-Quellcode:
try
wrong_limit := false;
old := (Length(Edit8.Text) = Edit8.MaxLength)
and (Now > StrToDate(Copy(Edit8.Text, 5, 2)+'.'+Copy(Edit8.Text, 3, 2)+'.'+Copy(Edit8.Text, 1, 2)));
except
on EConvertError do
begin
old := true;
wrong_limit := true;
end;
end;
Wie löst man das denn wirklich? Ich bezweifle dass die try-except-end - Methode hier gut geignet ist.
Mal davon abgesehen, dass ich beim Debuggen nach jedem Tastenschlag einen Fehler bekomme...
Grüße
Faux