Zeitmesser

[nixalsverdruss]

Hallo,
ich möchte gern ein Label auf einem Formular haben, dass zählt, wie lange das Form schon offen ist, also, dass unten die Zeit läuft. Hat da ejemand einen Quellcode für?
Danke schon mal im Voraus
nixalsverdruss

[Missionar]

ja

[blink182]

:thumb:
top ;)

du kannst einfach einen Timer machen und dann in die Timer-Prozedur z.B. schreiben

Delphi-Quellcode:

Label1.caption:=inttostr(strtoint(Label1.caption)+1);

solltest aber dann Label1.Caption beim Form.Create oder noch davor auf 0 setzen und das Timer-Interval auf 1000 lassen

[nixalsverdruss]

okay dankeschön, probier ich gleichmal....

[nixalsverdruss]

Super!!!!!!!!!!!!!!!!!!!!! Genauso wollt ichs haben! Dankeschön! :hello:

[Noedel]

um es etwas genauer zu haben, verwende am besten GetTickCount (liefert die ms ab, die der PC schon läuft.)

[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

[blink182]

Zitat:

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.

ja das scheint mir auch sinnvoller, hatte ich auch am anfang schon gedacht, aber soll er entscheiden wie er es umsetzen möchte

[DeddyH]

Zitat:

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;