Einzelnen Beitrag anzeigen

striderx

Registriert seit: 11. Feb 2007
Ort: Bergisch Gladbach
207 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: Quicksort-Rätsel

  Alt 13. Nov 2014, 00:17
>>Fehlt da nicht irgendwie das „Herz“ von Quicksort ...<<

Das passiert m. E. hier:

Delphi-Quellcode:
    while Less(tStart, 0) do Inc(tStart);
    while Less(0, tStop) do Dec(tStop);
Mit der 0 wird der Pivot-Record referenziert, der in dem Array-Element 0 enthalten ist.
  Mit Zitat antworten Zitat