Zählschleife Auswertung der Zufallszahlen

[Michu]

hallo stelle mal mein programm ein, der datentyp ist integer
hoffe das ist nicht zuviel, danke für eure hilfe

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Li_zufa: TListBox;
    B_zuf: TButton;
    B_loeschen: TButton;
    procedure feld_fuellen;
    procedure feld_anzeigen;
    procedure B_zufClick(Sender: TObject);
    procedure B_loeschenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    z:array[1..100]of integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.feld_fuellen;
var i:integer;
begin

      for i:=1 to 100 do z[i]:= random (6)+1;
      
end;

procedure TForm1.feld_anzeigen;
var i:integer;
begin

    for i:=1 to 100 do Li_zufa.items.Add(inttostr(z[i]));

end;

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

end;
procedure TForm1.B_zufClick(Sender: TObject);
var i:integer;
begin

feld_fuellen;
feld_anzeigen;

end;

procedure TForm1.B_loeschenClick(Sender: TObject);
begin
//Liste löschen
Li_zufa.items.clear;

end;



end.

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst erledigen. Mfg, Matze[/edit]