1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.Btn_QuickClick(Sender: TObject); //Wenn der Button Wuick geklickt wird soll die Sortierung erfolgen 
procedure QuickSort(Links,Rechts: Integer); 

var 
Zahl:array[1..7]of integer; // weist den Zahlen 1-7 den Wert Integer zu das ist ja klar 
PivotE: Integer; // für den Quicksort ist ja ein sogenanntes Pivotelement nötig. 
links, rechts:integer; 

begin 
Zahl [1]:=StrToInt(TF1.text); // hier lese ich die jeweiligen Zahlen aus den Textfeldern TF1-7 ein 
Zahl [2]:=StrToInt(TF2.text); 
Zahl [3]:=StrToInt(TF3.text); 
Zahl [4]:=StrToInt(TF4.text); 
Zahl [5]:=StrToInt(TF5.text); 
Zahl [6]:=StrToInt(TF6.text); 
Zahl [7]:=StrToInt(TF7.text); 

PivotE:=Zahl[4]; // da es ja eigentlich egal ist welche Zahl der Quicksort nutzt um die anderen Zahlen
                 // mit dieser zu vergleichen hab ich einfach mal die Zahl aus dem Textfeld TF4 gewählt. 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin 
function quicksort Sortieren (links, rechts) 
while rechts > links do 
teiler := teile (links, rechts) 
falls rechts-teiler > teiler-links 
quicksort(links, teiler - 1) 
links := teiler + 1 sortieren 
sonst 
quicksort(teiler + 1, rechts) 
rechts := teiler –1 
end