AW: Weiterlernen
8. Aug 2016, 23:37
Wenn ich das richtig sehe, möchtest Du jede Sekunde die Totalzeit um eine Sekunde erhöhen verringern.
Wie wäre es denn dann einfach mit totaltime := totaltime - (1 / 86400);
In einem Datetimewert steht 1 für einen Tag. Ein Tag hat 24 * 60 * 60 = 86400 Sekunden. Eine Sekunde ist also 1 / 86400 und diesen Wert musst Du dann pro Sekunde zu von Deinem Zeitzähler addieren subtrahieren.
totaltime := IncSecond(toteltime,-1);
sollte die gleiche Wirkung haben.
Das Timerintervall muss nicht bei jedem Aufruf der des Timerereignisses neu gesetzt werden. Das timer1.Interval := 1000;
kann entfallen.
Geändert von nahpets ( 8. Aug 2016 um 23:59 Uhr)
Grund: Hatte übersehen, das rüchwärts gezählt werden soll :-( - Memo an mich: Erst lesen dann schreiben ;-)
|