QuickSort zu schnell für GetTickCount?

[DeddyH]

Du musst die Frequenz ermitteln und die Ausgabe durch die Frequenz teilen. Was Du jetzt hast, ist die Frequenz.

[edit]Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Start, Stopp, Freq: int64;
begin
  QueryPerformanceCounter(Start);
  sleep(1234);
  QueryPerformanceCounter(Stopp);
  QueryPerformanceFrequency(Freq);
  ShowMessage(Format('Das waren %.2f Sekunden.',[(Stopp - Start) / Freq]));
end;

[/edit]

[Fussball-Robby]

Du musst die Differenz durch die Frequenz teilen (irgendwie logisch, denn je höher die Frequenz desto niedriger die Sekundenzahl bei gleicher Differenz :wink: ). 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;