Delphi Stopuhr

[3_of_8]

Was ist I überhaupt? Mit Std, Min, Sek würde ich das machen:

Delphi-Quellcode:

procedure timer1timer(Sender: TObject);  //Hat Interval 100, nicht enabled.
begin
zeit:=trunc((GetTickCount-start)/1000);
h:=trunc(zeit/3600);
min:=trunc((zeit mod h)/60);
s:=zeit mod min;
label1.caption:=inttostr(h)+' : '+inttostr(min)+' : '+inttostr(s);
end;

procedure Button1Click(Sender: TObject);
begin
if start=0 then
begin
button1.caption:='Stop';
start:=GetTickCount;
timer1.enabled:=True;
end
else
begin
timer1.enabled:=False;
timer1timer(Sender);
start:=0;
end;
end;
end;

[edit=alcaeus]delphi-Tags korrigiert. Mfg, alcaeus[/edit]