Ein Hallo an alle !! und wieder mal ein problemchen
Ich habe ein Datumsfeld in Form von „TDateTimePicker“ und möchte verhindern,
dass die Möglichkeit besteht ein Datum auszuwählen bzw. einzugeben das nach dem
aktuellem Datum liegt.
Nach der Eingabe sollte dann über Showmessage die Info ausgegeben werden, dass die Eingabe nicht richtig ist wenn das Datum nach dem aktuellen Wert liegt.
Dazu hatte ich vollgende Idee, welche aber nicht so klapt
Delphi-Quellcode:
procedure TSachverhaltForm.datumExit(Sender: TObject);
var l,b,u:real;
begin
Try
l:=strtofloat(datum.Date);
Except
Showmessage('Eingabefehler: Sie können kein Datum angeben das nach dem Aktuellen Datum liegt !');
l := 01.01.2001;
datum.Date := '01.01.2001';
end;
u:=l>b;
datum.Date := FloattostrF (u,ffGeneral,6,0);
datum.setfocus
end;
Ich glaube ich habe da wieder mal ein falschen Ansatz