Komponoentennamen in Schleifen

[nick-xyz-]

Ich bin vorher von Labeln ausgegangen und jetze auf Edits umgestiegen.

Delphi-Quellcode:

const EditAnzahl = 6;
var
  Form1: TForm1;
  ZZahl : Integer;
  Wert : Array[1..6] of Integer;
  Edit : Array[1..EditAnzahl] of TEdit;

implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
 I := StrToInt(Edit7.Text);
 Repeat
  ZZahl :=  Random(6)+1;
  Case ZZahl of
   1 : Inc(Wert[1]);
   2 : Inc(Wert[2]);
   3 : Inc(Wert[3]);
   4 : Inc(Wert[4]);
   5 : Inc(Wert[5]);
   6 : Inc(Wert[6]);
  end;
  Dec(I);
 Until I = 0;
 Label7.Caption := 'Es wurden '+IntToStr(Wert[1])+' '+Edit1.Text+'en gewürfelt.';
 Label8.Caption := 'Es wurden '+IntToStr(Wert[2])+' '+Edit2.Text+'en gewürfelt.';
 Label9.Caption := 'Es wurden '+IntToStr(Wert[3])+' '+Edit3.Text+'en gewürfelt.';
 Label10.Caption := 'Es wurden '+IntToStr(Wert[4])+' '+Edit4.Text+'en gewürfelt.';
 Label11.Caption := 'Es wurden '+IntToStr(Wert[5])+' '+Edit5.Text+'en gewürfelt.';
 Label12.Caption := 'Es wurden '+IntToStr(Wert[6])+' '+Edit6.Text+'en gewürfelt.';
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var I : Cardinal;
begin
 Case RadioGroup1.ItemIndex of
  0 : For I := 2 to 6 do
       Edit[I].visible := false;
 end;
end;