Wie oft eine Zahl gewürfelt wurde kriegste dann über das Array raus, also z.B.Code:var Zahl : Array [1..6] of Integer; ... procedure Erzeuge_Augenzahl; var i,rdm : Integer; begin randomize; for i:=1 to 100000 do begin rdm:=Random(6)+1; inc(Zahl[rdm]); end; end;zeigt dir an wie oft die 1 gewürfelt wurdeCode:Edit1.Text:=IntToStr(Zahl[1]);
zu mehr hab ich jetzt keine Lust ^^