GetTickCount immer sehr ähnliches Ergebnis

[TheAn00bis]

Delphi-Quellcode:

var anfang, ende:cardinal;
begin
anfang:=GetTickCount;
 InsertSort;
ende:=GetTickCount;

label2.caption:=inttostr((anfang-ende)div 1000)+'s';
end;

Die Caption von Label2 fängt immer - egal wie lang das zu Sortierende ist und egal, ob es 5 oder 30 Sekunden dauert, bis sortiert ist - mit 42949 an. Wie kann das sein!?

Edit: Falsch, wenn es sehr schnell ist, dann ist es 0.

[jfheins]

Probier mal ende - anfang ;)

ADD: Da du Cardinal genommen hast, und den Überlaufschutz deaktiviert hast, bemerkst du nicht, dass du unter Null kommst, und dann an der Obergrenze des Cardinals bist ...

[TheAn00bis]

OH Gott...

Trotzdem danke... :)

Hab eine halbe Stunde rumprobiert...

Was meinst du mit deinem add?

[Khabarakh]

Wenn du die Überlaufprüfung abschaltest, wirst du keinen Fehler erhalten, falls du einer Variable einen Wert zuweist, der außerhalb ihres Bereichs liegt. Cardinal ist ein 32bit-Integer ohne Vorzeichen, also 0..4294967295 (entspricht z.B. in C# uint). Wenn du diesem einen negativen Wert zuweist, "klappt" er um, fängt also wieder von oben an ("42949...").