Probel mit Timer

[Markus K.]

Um Zeitmessungen durchzuführen, kannst du es mal mit folgender Procedure versuchen.

Delphi-Quellcode:

var c,zeit1,zeit2:TLargeInteger;
begin
     QueryPerformanceFrequency(c);
     QueryPerformanceCounter(Zeit1);
     
     {zumessende Procedure oder Funktion einfügen}

     QueryPerformanceCounter(Zeit2);
     Label1.Caption:=Format('Zeit: %g',[(Zeit2-Zeit1)/c]);

end;

Tschüß Markus