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..