Ich habe zwei TDateTimes und einen Timer, der jede 1/1000 Sekunde "ausschlägt".
Nun möchte ich beide vergleichen und überprüfen, ob eine Sekunde vergangen ist.
(Ein TDateTime bleibt erhalten)
Delphi-Quellcode:
procedure TFFreggels.VersinkTimerTimer(Sender: TObject);
var
i : Byte;
begin
for i := 0 to High(Diamant) do begin
if Diamant[i].sink then begin // nicht diese!!
if Aktuelle Zeit - Andere Zeit = 1 {Sekunde} then //die Zeile!
//mache das und das
end;
end;
end;
Was muss ich jetzt als Bedingung in die 2. If-Bedingung setzen?