Wie kann ich eine Zeitmessung durchführen?
Mit den Win32 QueryPerformance-Funtionen kann man genauere Zeitmessungen durchführen, als mit den Standardfunktionen:
var c, n1, n2: TLargeInteger; begin QueryPerformanceFrequency(c); QueryPerformanceCounter(n1); // tuirgendwas; QueryPerformanceCounter(n2); ShowMessage(format('Zeit: %g', [n2.QuadPart - n1.QuadPart) / c.QuadPart])); end;
Delphi 1 | Delphi 2 | Delphi 3 | Delphi 4 |
nicht getestet | Version nicht betroffen | getestet |
siehe auch: