:Codix32
Ich hab paar Punkte an deinem Beispiel geändert, hab es aber nicht ausprobiert, sondern direkt hier im Edit Fenster getippt.
Es kann also sein, daß es nicht funktioniert. Teste es aber mal und sag bescheid.
Delphi-Quellcode:
repeat
while sl[Lo] < Pivot
do Inc(Lo);
while sl[Hi] > Pivot
do Dec(Hi);
if Lo <= Hi
then
begin
Swap := sl[Lo];
sl[Lo] := sl[Hi];
sl[Hi] := Swap;
Inc(Lo);
Dec(Hi);
end;
until Lo > Hi;