Benchmark Algorythmus

[yankee]

WARUM nicht einfach sowas:

Delphi-Quellcode:

function benchmark:integer; //gibt die dauer in ms zurück
var i,temp:integer;
begin
result :=getTickCount();
for i:=0 to 30000 do
begin
    temp :=round(i+sqr(i)-sqrt(i)*i+3/i);
end;
result :=result -getTickCount();
end;

Oder irgend so einen Schwaschsinn. Du kannst wahrscheinlich auch einfach konstante Werte nehmen... Ich weiß nur nicht, ob der Compiler dann irgendwelche Optimierungen vornimmt, die ganz überl sind...