Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   MonthCalendar1.Date und Date vergleichen (https://www.delphipraxis.net/176377-monthcalendar1-date-und-date-vergleichen.html)

sigi 31. Aug 2013 18:14

MonthCalendar1.Date und Date vergleichen
 
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 31. Aug 2013 18:37

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

Bjoerk 31. Aug 2013 18:59

AW: MonthCalendar1.Date und Date vergleichen
 
In der unit DateUtils gibt's auch eine SameDate function.

sigi 2. Sep 2013 10:59

AW: MonthCalendar1.Date und Date vergleichen
 
Mit SameDate klappt es, danke für die Antworten.

Gruß sigi


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:14 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf