Komme nicht weiter mit Zeitvergleichen?

[Sir Rufo]

Zitat von AlexII:

Zitat von Sir Rufo:

Und wenn man etwas nicht versteht, dann gibt man sich die Werte mal in einer Memo aus und schaut, ob der Vergleich wirklich passen könnte

Delphi-Quellcode:

procedure TForm4.Timer1Timer(Sender: TObject);
var
  Vergleich : TDateTime; 
begin 
  Vergleich := now; // Merken, weil now ja weiter läuft!!!
  Memo1.Lines.Add( Format( 'DateTimePicker: %s Now: %s', [ FloatToStr( DateTimePicker2.Time ), FloatToStr( Vergleich ) ] );
  if ( DateTimePicker2.Time = Vergleich ) then ShowMessage('Ok'); 
end;

Now muss ja auch weiterlaufen, DateTimePicker2.Time bleibt konstant eingestellt und vergleichen tust du genauso wie ich, was genauso nicht funktioniert.

Du sollst Dir ja auch die Werte !!ansehen!! und dann wirst du !!sehen!! warum das nicht funktioniert!!!
Und der Wert von Now wird sich deshalb gemerkt, damit auch das ausgegeben wird, was danach dann auch verglichen wird!