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???