Geschwindigkeit einer Funktion messen

[Fussball-Robby]

Zitat von Forlan:

Müsste es so nicht klappen????

Delphi-Quellcode:

procedure TForm1.Go;
var start,stop,zeit : integer;
begin
  start := GetTickCount;
     //Hier deine Funktion
  stop := GetTickCount;
  zeit := stop-start;
  ShowMessage('Gebrauchte Zeit '+ IntToStr(zeit) + ' ms';
end;

GetTickCount misst Millisekunden, für Funktionen, die länger dauern, reicht das natürlich. Um einiges genauer ist aber QueryPerformanceCounter (welches ja ganz am Anfang schon von sakura angesprochen wurde)