nochmal n-maliges Würfeln

[Thorben_K]

Zitat von Elicia:

Hi,

statt

1:label16.Caption:=inttostr(d+1);

probiere:
1:label6.Caption:=inttostr(d)+1;

d.h. du wandelst d in einen Integer um und addierst DANACH die 1 !

Gruß, Elicia

ich weiss nicht wie du das anstellen willst, du kannst doch einem String nicht die Zahl 1 addieren.... So geht das auf keinen fall.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var a,b,c,d,e,f,g,h,i:Integer; 
begin 
a:=strtoint(Edit1.Text); 
d:=0; e:=0; f:=0; g:=0; h:=0; i:=0; 
randomize; 

for b:= 1 to a 
do 
begin 
c:=random(6)+1; 
case c of 
1:
  Begin 
  Inc(d); 
  abel16.Caption:=inttostr(d);//bei der Ausgabe gibt der mir immer nur 1 an!! Wieso?
  end; 
2: ... //usw

end;

so machst du das halt mit allen Variablen, bin zu faul alles nun auszuschreiben

PS: Mit einem array wäre das alles viel einfacher..