Zitat von
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;
woe muss ich denn diese Prozedur umändern, damit ich sie auf String bzw. Buchstaben anwenden kann ?