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:


Delphi FAQ