hihi muss nochmal nerven!
Hab da in meinem Programm immer noch ein Problem. Undzwar zählt der die Ergäbnisse nicht weiter sondern schreibt mir immer wieder nur 1 hin. kann mir mal einer sagen wie ich das mache das der auch bis 3 und mehr zählen kann!
Greez Dori
Hier mal NUR der Wichtige Teil aus meinem Quelltext
ganzes Projekt ist im Anhang!
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:label16.Caption:=inttostr(d+1);//bei der Ausgabe gibt der mir immer nur 1 an!! Wieso?
2:label17.Caption:=inttostr(e+1);
3:label18.Caption:=inttostr(f+1);
4:label19.Caption:=inttostr(g+1);
5:label20.Caption:=inttostr(h+1);
6:label21.Caption:=inttostr(i+1);
end;
Kann mir auch mal einer verrraten wie ich in der case anweisung den Zahlen eine Variable zuordne. Das wäre vielleicht schon die lösung.
[edit=Jelly] Nächstes Mal die Delphi-Tags bitte einpflegen. Mfg, Jelly[/edit]