Geschwindigkeit einer Funktion messen

[Meflin]

Zitat von Bernhard Geyer:

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.

Schon klar. Aber wenn er nur wissen will "Funktion XY läuft Z Sekunden", dann ist AQTime wohl die falsche Wahl.

Abgesehen davon: vielleicht will ers ja auch im Programm ausgeben

[Gargamel]

Genau die richtigen Hinweise. Danke an alle.
Funktioniert prima.

[Forlan]

Zitat von Gargamel:

Genau die richtigen Hinweise. Danke an alle.
Funktioniert prima.

welche der lösungen funktioniert denn prima???^^

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

[Gargamel]

OK. Hier der Quellcode. Wundert Euch bitte nicht, warum ich ständig PChar in String konvertiere. Der Grund ist der, daß ich mit der Torque Game Engine arbeite und die komplett in C++ geschrieben wurde. Da ich aber C++ nur dann anfasse, wenn unbedingt nötig, nutze ich lieber mit der 3D Engine eine zusätzliche DLL, die ich in Delphi schreibe. Daher die Umwandlung.
Die Zeitmessung ist deswegen interessant, da KI und Wegfindung recht aufwändige Berechnungen sind. Und ich will halt wissen, wie schnell die Algorithmen ablaufen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Start, Stop, Frequenzy: Int64;
    i:integer;
    name_p:PChar;
    name_s:string;
begin
  Listbox1.clear;
  QueryPerformanceFrequency(Frequenzy);
  QueryPerformanceCounter(Start);

  for i:=1 to StrToInt(Edit1.text) do
  Begin

    name_p:='Ich mag Delphi';

    name_s:=StrPas(name_p);

    listbox1.Items.Add(IntToStr(i)+': '+name_s);

  End;

  try
    QueryPerformanceCounter(Stop);
    ShowMessage(FormatFloat('0.00', (Stop - Start) * 1000 / Frequenzy) + ' Millisekunden');

  finally

  end;
end;

[Apollonius]

Das hat Daniel doch schon erwähnt, Robert. Wenn mich meine Erinnerung nicht trügt, wurde hier auch kürzlich ein Problem mit QueryPerformanceCounter erwähnt, das auftritt, wenn der Thread die CPU wechselt.

[Bernhard Geyer]

Zitat von Gargamel:

Die Zeitmessung ist deswegen interessant, da KI und Wegfindung recht aufwändige Berechnungen sind. Und ich will halt wissen, wie schnell die Algorithmen ablaufen.

Für sowas ist ein Line-Profiler wie bei AQTime super.