PS: Sleep(1) ist bei aktuellen Betriebssystemen 0 bis 16 ms lang, also durchschnittlich 8ms
ich mach es meistens so:
for i := 0 to 10000 do if i = 0 then ;
und wenn dich die Dauer interessiert ... einfach mal messen
Delphi-Quellcode:
QueryPerformanceFrequency(Freq);
QueryPerformanceCounter(Start);
for k := 1 to Durchlaeufe do
for i := 0 to 10000 do if i = 0 then ;
QueryPerformanceCounter(Stopp);
Dauer := (Stopp - Start) / Freq / Durchlaeufe;
oder
Delphi-Quellcode:
QueryPerformanceFrequency(Freq);
QueryPerformanceCounter(Start);
for i := 1 to 10000 * Durchlaeufe do if i = 0 then ;
QueryPerformanceCounter(Stopp);
Dauer := (Stopp - Start) / Freq / Durchlaeufe;