Stopuhr programmieren

[Sharky]

Zitat von flodeluxe:

Hi
Wie kann ich eine Stopuhr programmieren?
Mit einer Time-Komponente?
P.S. Ich hab schon in der Hilfe geschaut
mfg Flo

Schaue mal nach GetTickCount


Als Code sehe das dann so aus:

Delphi-Quellcode:

var
   startzeit,
   endzeit : Cardinal;

procedure TForm1.Button1Click(Sender: TObject);
begin
 If (Button1.Caption = 'Start') then
  begin
   startzeit := GetTickCount;
   Button1.Caption := 'Stop';
   label1.Caption := 'Uhr läuft';
  end
 else
  begin
   endzeit := GetTickCount;
   label1.Caption := Format ('Die Stopuhr lief %d ms.',[endzeit-startzeit]);
   Button1.Caption := 'Start';
  end;
end;

Benötigt wird 1 Button mit der Caption 'Start' und ein Label.