Geschwindigkeit einer Funktion messen

[Gargamel]

Hallo

Kennt jemand eine Lösung bzw. ist es überhaupt möglich, die Ausführungsgeschwindigkeit einer Funktion zu messen?

[mkinzler]

Nicht ohne Einfluss auf diese zu nehmen

[sakura]

Eine direkte Funktion gibt es nicht, aber mit Hilfe von QueryPerformanceCounter und QueryPerformanceFrequency ist es recht einfach möglich.

......

[sakura]

Zitat von mkinzler:

Nicht ohne Einfluss auf diese zu nehmen

Wieso, wenn man die Zeitmessung vor und nach dem Aufruf ausführt, dann sollte es doch ohne Probleme gehen.

......

[mkinzler]

Zitat von sakura:

Zitat von mkinzler:

Nicht ohne Einfluss auf diese zu nehmen

Wieso, wenn man die Zeitmessung vor und nach dem Aufruf ausführt, dann sollte es doch ohne Probleme gehen.

......

Stimmt

[Apollonius]

Auch noch zu erwähnen: Mit GetThreadTimes bist du unabhängiger von anderen Threads, die gleichzeitig laufen, als wenn du QueryPerformanceCounter oder GetTickCount nimmst.

[Bernhard Geyer]

Falls es öfter benötigt wird um sein Programm schneller zu machen: AQTime ist sein Geld wert!

[Meflin]

Zitat von Bernhard Geyer:

Falls es öfter benötigt wird um sein Programm schneller zu machen: AQTime ist sein Geld wert!

Wollte ich auch schon vorschlagen, wobei ich nicht weis, ob es für absolute Zeiten so gut geeignet ist. Wenn ich mich recht erinner, hat der Profiler die Ausführung doch erheblich verlangsamt...

[Bernhard Geyer]

Zitat von Meflin:

Zitat von Bernhard Geyer:

Falls es öfter benötigt wird um sein Programm schneller zu machen: AQTime ist sein Geld wert!

Wollte ich auch schon vorschlagen, wobei ich nicht weis, ob es für absolute Zeiten so gut geeignet ist. Wenn ich mich recht erinner, hat der Profiler die Ausführung doch erheblich verlangsamt...

Es kommt ja auf die verhältnisse an bzw. was ich machen will.
Wenn mir der Proviler sagt das 90% der Rechenzeit an 5 Quellcodezeilen verbraten werden ist es egal ob diese um den Faktor 5 verlangsamt wurden.
Und erheblich verlangsamt wird es nur wenn der Line-Profiler verwendet wird.

[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;