QuickSort zu schnell für GetTickCount?

[Forlan]

Hallo zusammen...

Kann es sein das QuickSort so schnell ist das GetTickCount die geschwindigkeit nicht mehr berechnen kann?
Hier mal der Quellcode dazu...

Delphi-Quellcode:

procedure THauptprogramm.bQuickSortClick(Sender: TObject);
var i,start,stop,Ausgabe : integer;
begin
  start := GetTickCount;
    QuickSort(Feld,Low(Feld),High(Feld));
  stop := GetTickCount;
  Ausgabe := Stop-Start;

  for i := low(Feld) to high(Feld) do
    begin
      sgToSort.Cells[i,0] := IntToStr(Feld[i]);
    end;

  if cbBerechnung.Checked = True
  then MessageDlg('QuickSort benötigte: '+IntToStr(Ausgabe)+'ms',mtInformation,[mbOk],0)
  else MessageDlg('Es wurde sortiert!',mtInformation,[mbOk],0);
end;

Als Ergebnis kommt immer 0 raus...
Gibt es eine bessere Möglichkeit sowas zu berechnen als mit GetTickCount???

[Fussball-Robby]

Jepp, genauer als GetTickCount ist QueryPerformanceCounter(). Such mal hier im Forum oder alternativ im Msdn danach.

[Forlan]

Zitat von Fussball-Robby:

Jepp, genauer als GetTickCount ist QueryPerformanceCounter(). Such mal hier im Forum oder alternativ im Msdn danach.

Ok, und wie benutzt man QueryPerformanceCounter()? Es ist klar das nach einem Int64 die Suche ist, aber welche Variable muss ich dort einsetzen?

[DeddyH]

Schau Dir doch das Beispiel mal an, ist zwar VB.NET, aber das dürfte ja kein großes Hindernis sein.

[Fussball-Robby]

Delphi-Quellcode:

var
  Start, Ende: Int64;
begin
  QueryPerformanceCounter(Start);
  Funktion();
  QueryPerformanceCounter(Ende);
  ShowMessage(IntToStr(Ende - Start));
end;

Übrigens: Wenn du unbedingt die benötigte Zeit (also zum Beispiel Millisekunden) ermitteln willst, musst du noch mit QueryPerformanceFrequency arbeiten, denn diese Frequenz hängt vom Prozessor ab und ist von daher nicht an jedem PC gleich (hoffentlich hab ich da jetzt nichts falsches gesagt, weiß es nicht mehr ganz genau )

[Forlan]

Zitat von DeddyH:

Schau Dir doch das Beispiel mal an, ist zwar VB.NET, aber das dürfte ja kein großes Hindernis sein.

Alles klar, danke für den Link...
Nun funktioniert es auch

Danke für die schnellen Antworten

[Forlan]

Eine Frage dazu noch...

Welche Einheit gibt QueryPerformanceCounter() denn zurück?

Also bei mir kam dann als Ergebnis 24 raus...

[DeddyH]

Den Post von Robby hast Du gelesen?

[Forlan]

Zitat von DeddyH:

Den Post von Robby hast Du gelesen?

Pardon, nein den hab ich übersehen...

Ok, DANKE!^^

[Forlan]

Irgendetwas scheint aber immernoch nicht zu stimmen....
Ist denn jetzt noch was falsch???

Delphi-Quellcode:

procedure THauptprogramm.bQuickSortClick(Sender: TObject);
var i : integer;
    start,stop,Ausgabe : Int64;
begin
  QueryPerformanceCounter(Start);  {GetTickCount ist nicht möglich, da QuickSort zu schnell ist}
    QuickSort(Feld,Low(Feld),High(Feld));
  QueryPerformanceCounter(Stop);
  Ausgabe := (Stop-Start);
  QueryPerformanceFrequency(Ausgabe);

  for i := low(Feld) to high(Feld) do
    begin
      sgToSort.Cells[i,0] := IntToStr(Feld[i]);
    end;

  if cbBerechnung.Checked = True
  then MessageDlg('QuickSort benötigte: '+IntToStr(Ausgabe)+' Sekunden',mtInformation,[mbOk],0)
  else MessageDlg('Es wurde sortiert!',mtInformation,[mbOk],0);
end;

Ausgabe hat nun etwa den Wert 3973945 Sekunden bei mir