Array Sortieren

[Plat]

Zitat von Tpercon:

Zitat von Plat:

woe muss ich denn diese Prozedur umändern, damit ich sie auf String bzw. Buchstaben anwenden kann ?

Delphi-Quellcode:

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

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

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

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

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

  ListBox2.Clear;
  for i := Low(tab) to High(tab) do
  ListBox2.Items.Add(tab[i]);
end;

Ungetestet!!

Erst einmal DANKE, aber warum dieses ListBox2 ? Kann man es denn nicht so umändern, dass alles gleich in der ListBox1 geschiet ? Muss doch klappen ?!!! Aber das ist erstmal unwichtig, schaff ich auch alleine