Altanative ginge auch noch
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
zahlen : array[1..6] of LongInt;
wurf, i, count : LongInt;
Comp : TComponent;
begin
randomize;
count := StrToInt(Edit1.Text);
for i := 1 to 6 do
zahlen[i] := 0;
for i := 0 to count -1 do
begin
wurf := Random(6) +1;
Inc(zahlen[wurf]);
end;
for i := 1 to 6 do
begin
comp := FindComponent('Label'+ IntToStr(i));
(Comp as TLabel).Caption := IntToStr(zahlen[i]);
end;
end;
so ist es meiner bescheidenen Meinung nach einfach
gruss Thorben
EDIT:
Oh da hatte wohl jemand die selbe Idee, das gut, das sagt mit das die idee gar net so schlecht ist
