Zitat:
Bei solchen Überprüfungen ist es sinnvoll, nicht auf '=' sondern auf '>' zu prüfen
Delphi-Quellcode:
procedure Form1.OnClick(Sender: TObject);
var
zeit : TTime;
datum : TDate;
begin
datum := StrToDate('05.10.2005');
zeit := TimeToStr('17:52:00');
if (TimeToStr(zeit) <> TimeToStr(now)) and (DateToStr(datum) <> DateToStr(now)) then ShowMessage('Es st noch nicht soweit') else forminfo.show;
end;