Zeit stoppen

[jbg]

Hier ist eine kleine Verbesserung, die auch am 49. Tag noch funktioniert:

Code:

[b]function[/b] TimeDiff(StartTime, EndTime: Cardinal): Cardinal;
[b]var[/b] i: Int64;
[b]begin
  if[/b] EndTime < StartTime [b]then[/b] i := $100000000 + EndTime
   [b]else[/b] i := EndTime;
  Result := i - StartTime;
[b]end[/b];

StartZeit := GetTickCount;
...
ZeitDifferenz := TimeDiff(StartZeit, GetTickCount)