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)