Zeit stoppen

[Sharky]

Hai Chakotay,

Zitat von Chakotay1308:

Hi!
Meine Idee, wäre das mit einer Timer-Komponente zu machen...
Chris

Einen Timer brauchst Du eigentlich nicht. Du kannst mit GetTickCount die anzahl an ms ermitteln die seit dem Start von Windows vergangen sind. ACHTUNG: Der wert wird nach 49.7 Tagen auf 0 gesetzt.

Code:

var
 zeit_start,
 zeit_ende : Integer;

procedure StartAktion;
begin
 zeit_start := GetTickCount;
 LADEWEBSEITE ODER MACHE SONSTETWAS;
 zeit_ende := GetTickCount;
 Label1.Caption := 'Das Laden hat ' + IntToStr (zeit_ende - zeit_start) + ' ms gedauert';
end;