Hi
Also als nächstes müssen wir ein kleines Lottospiel programmieren!
Jetzt eine Frage warum mir beim start, dann in dieser Zeile ein Fehler angezeigt wird:
Delphi-Quellcode:
procedure TfrmLotto.btnstartClick(Sender: TObject);
var
i, s, z: Integer;
begin
if txttip.text = '' then
begin
MessageDlg('Es wurde keine Anzahl an Tipps eingegeben!', mtError ,[mbOK], 0);
exit;
end
else
begin
if (convert.toint16(txttip.text) < 1) or (convert.toint16(txttip.text) > 12) then
MessageDlg('Es können nur min. 1 Tipp und max. 12 Tipps gespielt werden!', mtError ,[mbOK], 0);
end;
grid.RowCount:= convert.toint16(txttip.text);
tips:= grid.RowCount;
gesamtips:= tips * 6;
s:= 0;
z:= 0;
for i:= 0 to gesamtips -1 do
begin
zufall:= random(46);
while zufall = 0 do
begin
zufall:= random(46);
end;
z:= 0;
case i of
0: s:=0;
6: s:=0;
12: s:=0;
18: s:=0;
24: s:=0;
30: s:=0;
36: s:=0;
42: s:=0;
48: s:=0;
54: s:=0;
60: s:=0;
66: s:=0;
end;
case i of
0..5: z:=0;
6..11: z:=1;
12..17: z:=2;
18..23: z:=3;
24..29: z:=4;
30..35: z:=5;
36..41: z:=6;
42..47: z:=7;
48..53: z:=8;
54..59: z:=9;
61..65: z:=10;
66..71: z:=11;
end;
Grid.Cells[s,z]:= convert.tostring(zufall);
s:= s + 1
end;
z:= 0
for i:= 0 to 5 do***************
begin
Grid.Cells[i,z]
end;
procedure TfrmLotto.FormCreate(Sender: TObject);
begin
Randomize;
end;
end.
da wo die sternchen in der zeile sind, dort kommt die fehlermeldung!
kann mir ma wer erklären warum!?