Einzelnen Beitrag anzeigen

Benutzerbild von Fussball-Robby
Fussball-Robby

Registriert seit: 22. Okt 2007
Ort: Nähe Köln
1.063 Beiträge
 
Delphi 7 Enterprise
 
#12

Re: QuickSort zu schnell für GetTickCount?

  Alt 25. Nov 2008, 16:11
Du musst die Differenz durch die Frequenz teilen (irgendwie logisch, denn je höher die Frequenz desto niedriger die Sekundenzahl bei gleicher Differenz ). Hier mal ein Beispiel für Sekunden, Milli-, Mikro- und Nanosekunden:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Start, Ende, F, Diff: Int64;
begin
  QueryPerformanceFrequency(F);
  QueryPerformanceCounter(Start);
  Funktion();
  QueryPerformanceCounter(Ende);
  Diff := Ende - Start;

  Label1.Caption := Format('%d Sekunden' + #13#10 +
                           '%d Millisekunden' + #13#10 +
                           '%d Mikrosekunden' + #13#10 +
                           '%d Nanosekunden', [Diff div F, Diff * 1000 div F, Diff * 1000000 div F, Diff * 1000000000 div F]);
end;
Robert L.
Der folgende Satz ist richtig!
Der vorherige Satz ist falsch!

Paradox
  Mit Zitat antworten Zitat