Komme nicht weiter mit Zeitvergleichen?

[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.