Coding für Sortieralgorithmus

[grumbeernils]

hier mal das bisherige coding:

Delphi-Quellcode:

var
Form1: TForm1;
i, j, help: integer;
Zahlen: array [0..6] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
for i:= 0 to 6 do
Zahlen[i] := Random (100);

for i := 0 to 5 do
begin
ListBox1.Items.Add(inttostr(Zahlen[i]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin


for j:= 0 to 5 do
begin

for i:= j to 5 do
begin
if (Zahlen[j] > Zahlen[i+1])
then
begin
help := Zahlen[j];
Zahlen[j] := Zahlen[i+1];
Zahlen[i+1] := help;
end
end;
end;

for i := 0 to 5 do
begin
ListBox2.Items.Add(inttostr(Zahlen[i]));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
ListBox2.Clear;
end;



end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]