Moin ich würds lieber so machen:
Delphi-Quellcode:
var
c,
n1,
n2: TLargeInteger
i: Integer;
begin
QueryPerformanceFrequerncy(c);
QueryPerformanceCounter(n1);
//Hier die aktion starten die gemessen werden soll
QueryPerformanceCounter(n2);
Label1.Caption := Format('Zeit: %g',[(n2-n1)/c]);
end;
hab ich mal so ausm DKochbuch genommen, dürfte funzen
falls nicht G* beschwert euch bei D&K
