QuickSort

[cool2005]

also das hier ist von daniel
Webseiten-Titel

Delphi-Quellcode:

Procedure QuickSort( l,r : Integer ); 
var i : Integer; 
Begin 
  If (r > l) Then 
  Begin 
    i:= Partition( l, r); 
    QuickSortRekursiv( l, i-1 ); 
    QuickSortRekursiv( i+1, r ); 
  End; 
End;

Function Partition( l,r : Integer ) : Integer; 
var v,t,i,j : Integer; 
Begin 
  v:= Data[r]; 
  i:= l-1; 
  j:= r; 
  Repeat 
    Repeat inc( i ); Until (Data[i] >= v); 
    Repeat dec( j ); Until (Data[j] <= v); 
    t:= Data[i]; Data[i]:= Data[j]; Data[j]:= t; 
  Until (j<=i); 

  Data[j]:= Data[i]; Data[i]:= Data[r]; Data[r]:= t; 
  Result:= i; 
End;

doch QuickSortRekursiv fehlt und ich habe keine ahnung