|
Registriert seit: 16. Jan 2007
Ort: Salzburg
19 Beiträge
Turbo Delphi für Win32
|
Re: nochmal n-maliges Würfeln
4. Feb 2007, 10:20
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
korrigiere nochmal:
case c of
1:d := d+1; // oder einfacher: inc(d)
2:e := e+1);
NACH der for-Schleife gibst du dann der Reihe nach d, e usw. mit IntToStr in den Labels aus!
|