Thema: Delphi Wie schnell ist Now?

Einzelnen Beitrag anzeigen

Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#22

Re: Wie schnell ist Now?

  Alt 9. Sep 2004, 17:49
Delphi-Quellcode:
    writeln('Es wird nun die Geschwindigkeit von "now" 1 Minute lang getestet...');
    zeit:=now;
    while (now<zeit+1/24/60) do inc(i);//1=tag /24=stunde /60=minute
    writeln('Es wurden '+inttostr(i)+' Versuche geschafft...');
    writeln('-> '+floattostr(i / 60)+' pro Sekunde...');
    writeln('-> '+floattostr(60000 / i)+' Millisekunden pro Durchlauf...');
also das is mein qt...

bei dem kommt immer in etwa dasselbe raus
beispiel:
90162736 Versuche
1502712,26666667 pro Sekunde
0,000665463390551946 Ms pro Durchlauf
-> für "ein Now" weniger als 0,001 Ms

kann das sein?

EDIT:

Es kommt noch schlimmer: in einem Dauerlauf sinkt die zeit kontinuierlich...
hier meine logfile, in der ich von jeder runde meinen zähler speicher (welcher immer höher steigt):

Zitat:
15425227
31223342
44994514
59589841
75048739
90764494
105974080
121638413
136844801
149813096
164240349
178464597
193157262
208506152
223825834
239124542
254333749
269997018
285589556
300514267
die letzte zahl bringt es auf unter 3,3 E-5 Ms pro Now

wo ist der fehler in meinem quelltext?
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat