Array Sortieren

[Matze]

Ich verstehe nicht ganz, wie du das machst, also ich würde es, mit Zahlen, so lösen. Buchstaben ist ähnlich:

Delphi-Quellcode:

procedure TForm1.Swap(var i,j: integer);
var h: integer;
begin
  h:=i;
  i:=j;
  j:=h;
end;

procedure TForm1.Sortiere;
var i,j: integer;
begin
  for i:=0 to ListBox1.Count-1 do     for j:=i+1 to ListBox1.Count do
    begin
      if tab[j]<tab[i] then Swap(tab[i],tab[j]);
    end;
end;

procedure TForm1.ArrayFuellen;
var i: integer;
    von, bis: integer;
begin
  ListBox1.Clear;

  for i:=0 to 200 do
  begin
    tab[i]:=random(101);  //Zufallszahlen von 0-100
    ListBox1.Items.Add(IntToStr(tab[i]));
  end;
end;

procedure TForm1.SortClick(Sender: TObject);
var i: integer;
begin
  Sortiere;

  ListBox2.Clear;
  for i:=0 to ListBox1.Count-1 do
  ListBox2.Items.Add(IntToStr(tab[i]));
end;