Delphi Stopuhr

[Fredyy]

da gibt es noch einen fehler...

Delphi-Quellcode:

min:=trunc((zeit mod h)/60);
s:=zeit mod min;

beide zeilen mit mod geben am anfang devision by zero aus,
da die uhr ja beim starten noch keine minuter oder stunde gelaufen ist.
wie kann ich das abfangen?

EDIT:

Problem selber behoen mit 2 unschönen aber funzenden Abfragen.

Delphi-Quellcode:

zeit:=trunc((GetTickCount-start)/1000);
h:=trunc(zeit/3600);

if (H > 0) then
min1 := (zeit mod h)
else
min1 := zeit;

min:=trunc(min1/60);

if (min > 0) then
s:=zeit mod min
else
s := zeit;