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]