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.
