so hier der code:
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) zahlenerzeugen: TButton; unsortiert: TLabel; zahlensortieren: TButton; sortiert: TLabel; procedure zahlenerzeugenClick(Sender: TObject); procedure zahlensortierenClick(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end;
var Form1: TForm1; zahlen:array[1..1000]of integer; i,j,eimer:integer;
implementation
{$R *.dfm}
procedure TForm1.zahlen_erzeugenClick(Sender: TObject); var i,j,eimer:integer; zahlen:array[1..1000]of integer; begin randomize; for i:=1 to 1000 do zahlen[i]:=random(1001); unsortiert.Caption:=unsortiert.caption+' '+inttostr(zahlen[i]); end;
procedure TForm1.zahlen_sortierenClick(Sender: TObject); var i,j,eimer:integer; begin for j:=1 to 999 do for i:=1 to 1000-j do if zahlen[i]>zahlen[i+1] then begin eimer:=zahlen[i]; zahlen[i]:=zahlen[i+1]; zahlen[i+1]:=eimer; end; for i:= 1 to 1000 do sortiert.Caption:=sortiert.caption+' '+inttostr(zahlen[i]);
end;
end.