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.