Zählschleife Auswertung der Zufallszahlen

[Michu]

habe auskommentiert weil ich mir nicht sicher war ob es richtig ist...

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Li_zuza: TListBox;
    B_zuza: TButton;
    B_loeschen: TButton;
    procedure feld_fuellen;
    procedure feld_anzeigen;
    procedure feld_zaehlen;
    procedure B_loeschenClick(Sender: TObject);
    procedure B_zuzaClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    w:array [1..1000]of integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.feld_fuellen;
var x:integer;
begin
      for x:=1 to 1000 do w[x] := random (6)+1;
end;

procedure TForm1.feld_anzeigen;
var x:integer;
begin
for x:=1 to 1000 do Li_zuza.Items.Add(inttostr (w[x])) ;
end;

procedure TForm1.feld_zaehlen;
var a:array[1..6] of integer;
    i,k: integer;
begin

for i:=1 to 6 do a[i]:=0;
//for i:=1 to 1000 do inc (a[w[i]];
for i:=1 to 1000 do begin
  for k:=1 to 6 do if w[i]=k then inc (a[i]);
end;

for i:=1 to 6 do Li_zuza.Items.add(inttostr(i)+' gibt es '+ inttostr(a[i])+ ' mal.');

end;
//************************************************************
procedure TForm1.B_loeschenClick(Sender: TObject);
begin
Li_zuza.Items.Clear;
end;

procedure TForm1.B_zuzaClick(Sender: TObject);
begin

feld_fuellen;
feld_anzeigen;
feld_zaehlen;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

end.

habe eben noch eine überlegung angestellt. aber muss noch ausprobieren... muss dafür aber immer ins andere zimmer weil mein delphi nicht will mit windows vista...