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;