1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.ShellSort;
var
i, j, h, v: integer;
begin
h := 1;
repeat
h := ( 3 * h ) + 1;
until h > length(ZFeld); //Wenn h kleiner als das Zahlenfeld ist,
                        // dann wiederholen
repeat
h := ( h div 3 );
for i := h + 1 to length(ZFeld) do begin
v := ZFeld[i - 1];
j := i;
while ( ( j > h ) and ( ZFeld[j - h - 1] > v ) ) do begin
versuche:=versuche+1;  //Für jedes Vertauschen der Zahlen,
                      // wir Versuche um 1 erhöht

ZFeld[j - 1] := ZFeld[j - h - 1];
dec( j, h );
end;
ZFeld[j - 1] := v;
end;
until
h = 1;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm1.ShellSort;  
var  
  i, j, h, v: integer;  
begin  
  h := 1;  
  // Hier wird wohl der Zeiger "h" solange erhöht, bis das Ende des Strings ZFeld übersprungen wurde.
  repeat  
    h := ( 3 * h ) + 1;
  until h > length(ZFeld); //Wenn h kleiner als das Zahlenfeld ist, dann wiederholen  
  repeat
    // Hier wird wieder auf den letzten gültigen Wert von "h" zurückgesprungen
    h := ( h div 3 ); 
    // Hier scheint eine Art Austausch von Zahlen stattzufinden wobei auf die Größe der Zahlen als 
    // Grund des Tausches geprüft wird.
    for i := h + 1 to length(ZFeld) do 
    begin  
      v := ZFeld[i - 1];  
      j := i;  
      while ( ( j > h ) and ( ZFeld[j - h - 1] > v ) ) do 
      begin  
        // Die Variable versuche ist hier nicht definiert?
        // und falls die Variable woanders deklariert wurde ist noch die Frage ob sie
        // vor dieser Stelle initialisiert worden ist. (d.h. mit einem Startwert versehen wurde.)
        versuche:=versuche+1;  //Für jedes Vertauschen der Zahlen, wir Versuche um 1 erhöht  
        ZFeld[j - 1] := ZFeld[j - h - 1];  
        dec( j, h );  
      end;  
      ZFeld[j - 1] := v;  
    end;  
  until h = 1; // solange bis h wieder 1 ist.
end;                    

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

procedure BubbleSort(Items: TStrings);
var  done: boolean;  
  i, n: integer;  
  Dummy: string;
begin  
  n := Items.Count;  
  repeat    
    done := true;    
    for i := 0 to n - 2 do      
    if Items[i] > Items[i + 1] then      
    begin
      Dummy := Items[i];
      Items[i] := Items[i + 1];
      Items[i + 1] := Dummy;
      done := false;
    end;
  until done;
end;