MonthCalendar1.Date und Date vergleichen

[sigi]

Hallo,

obwohl der Kalender beim start auf das aktuelle Datum gestellt wird, klappt der Vergleich nicht. Klick ich aber auf das aktuelle Datum (obwohl es da schon richtig steht), klappt es, das beep kommt. Kann mir jemand einen Tipp geben, warum es erst nach dem Klick auf den Kalender geht?

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  MonthCalendar1.Date := Date;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := DateToStr(MonthCalendar1.Date);
  if MonthCalendar1.Date = Date then
  begin
    beep;
  end;
end;

Gruß sigi

[Uwe Raabe]

Versuch doch mal einen Vergleich mit SameValue - der TDateTime ist ein Float-Wert und die sollte man nie direkt auf Gleichheit testen.

[Bjoerk]

In der unit DateUtils gibt's auch eine SameDate function.

[sigi]

Mit SameDate klappt es, danke für die Antworten.

Gruß sigi