Zitat von
fkerber:
Hi!
Ich wäre mir aber nicht so sicher, ob das so genau funktioniert. Ich denke nämlich nicht unbedingt, dass der Timer genau im Takt 1000ms aufgerufen wird - bspw. nicht, wenn der Rechner mal gerade voll ausgelastet wird o.ä.
Ich würde zwar auch einen Timer mit Takt 1000ms nutzen, allerdings dann nicht einen Counter erhöhen, sondern die aktuelle Zeit auslesen und dann die Zeit beim Öffnen irgendwo gespeichert haben und dann die Differenz ordentlich formatiert ausgeben.
Ciao, Frederic
Das denke ich auch. Dazu mal ein Beispiel aus dem Kopf getippt (keine Garantie):
Delphi-Quellcode:
type
TMyForm = class(TForm)
MyTimer: TTimer;
MyLabel: TLabel;
...
procedure FormCreate(Sender: TObject);
private
FStart: TDateTime;
...
end;
...
uses DateUtils;
...
procedure TMyForm.FormCreate(Sender: TObject);
begin
FStart := now; //Startzeit merken
end;
procedure TMyForm.MyTimerTimer(Sender: TObject);
const SecsPerMinute = 60;
SecsPerHour = SecsPerMinute * 60;
var dwSecDiff: Cardinal;
begin
dwSecDiff := DateUtils.SecondsBetween(now,FStart); //Zeitdifferenz in Sekunden
MyLabel.Caption := Format('%.2d Stunden, %.2d Minuten, %.2d Sekunden',
[dwSecDiff div SecsPerHour,
dwSecDiff mod SecsPerHour div SecsPerMinute,
dwSecDiff mod SecsPerMinute]);
end;