Bestimmung der Dauer einer Function/Prozedur

[bernd2000]

Hi

Am besten mit QueryPerformanceCounter:

Code:

procedure DoStart;
var
  c,n1,n2: TLargeInteger;
  i: Integer;
begin
  QueryPerformanceFrequency(c);
  QueryPerformanceCounter(n1);
  for i:=1 to 100000 do
     begin
     //Irgendwas
     end;
  QueryPerformanceCounter(n2);
  ShowMessage(Format('Dauer: %g',[(n2-n1) / c]));
end;

Gruß Bernd