Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Nov 2008
Irgendetwas scheint aber immernoch nicht zu stimmen....
Ist denn jetzt noch was falsch???
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);
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Nov 2008
Pardon, nein den hab ich übersehen... :pale:
Ok, DANKE!^^
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Nov 2008
Eine Frage dazu noch...
Welche Einheit gibt QueryPerformanceCounter() denn zurück?
Also bei mir kam dann als Ergebnis 24 raus...
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Nov 2008
Ok, und wie benutzt man QueryPerformanceCounter()? Es ist klar das nach einem Int64 die Suche ist, aber welche Variable muss ich dort einsetzen?
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Nov 2008
Hallo zusammen...
Kann es sein das QuickSort so schnell ist das GetTickCount die geschwindigkeit nicht mehr berechnen kann?
Hier mal der Quellcode dazu...
procedure THauptprogramm.bQuickSortClick(Sender: TObject);
var i,start,stop,Ausgabe : integer;
begin
start := GetTickCount;
QuickSort(Feld,Low(Feld),High(Feld));