ähm, was spricht gegen so eine messweise?
Delphi-Quellcode:
start:=time;
for i:=1 to 999999 do x:=now;
stop:=time;
oder gegen eine solche konsolenanwendung?
Delphi-Quellcode:
zeit:TDateTime;
i:Int64;
begin
Werte:=TStringList.Create;
writeln('Es wird nun die Geschwindigkeit von now 1 Minute lang getestet...');
zeit:=now;
while (now<zeit+0.000694444444) do inc(i);
writeln('Es wurden '+inttostr(i)+' Versuche geschafft...');
writeln('-> '+floattostr(i / 60)+' pro Sekunde...');
writeln('-> '+floattostr(60000 / i)+' Millisekunden pro Durchlauf...');
readln;
end.