BTW: Wie messt ihr da eigentlich immer die Zeit???
Ich i.d.R. so:
Delphi-Quellcode:
var
i: Integer;
Start, Stop: Integer;
begin
Start := GetTickCount;
for i := 1 to 1000 do
begin
// dein Funktionsaufruf
end;
Stop := GetTickCount;
ShowMessage(FloatToStr((Stop - Start) / 1000) + ' ms');
Die Test-Funktionen rufe ich immer mehrfach auf, um reproduzierbare Ergebnisse zu erhalten, auch bei sehr kurzen Durchlaufzeiten.