OK das Problem ist wirklich ein Fehler von mir !!!
Danke für die Hilfe, jetzt kommt das Problem nr. 2
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
if Geld > 1500 then
begin
if Felder < 30 then
begin
Felder := Felder +1;
Geld := Geld - 1500;
Panel2.Caption := inttostr (Felder);
case Felder of
2: Feld2.Color := clGreen;
3: Feld3.Color := clGreen;
4: Feld4.Color := clGreen;
5: Feld5.Color := clGreen;
6: Feld6.Color := clGreen;
7: Feld7.Color := clGreen;
8: Feld8.Color := clGreen;
9: Feld9.Color := clGreen;
10: Feld10.Color := clGreen;
11: Feld11.Color := clGreen;
12: Feld12.Color := clGreen;
13: Feld13.Color := clGreen;
14: Feld14.Color := clGreen;
15: Feld15.Color := clGreen;
16: Feld16.Color := clGreen;
17: Feld17.Color := clGreen;
18: Feld18.Color := clGreen;
19: Feld19.Color := clGreen;
20: Feld20.Color := clGreen;
21: Feld21.Color := clGreen;
22: Feld22.Color := clGreen;
23: Feld23.Color := clGreen;
24: Feld24.Color := clGreen;
25: Feld25.Color := clGreen;
26: Feld26.Color := clGreen;
27: Feld27.Color := clGreen;
28: Feld28.Color := clGreen;
29: Feld29.Color := clGreen;
30: Feld30.Color := clGreen;
end;
end
else
showmessage ('Sie besitzen alle Felder in ihrer Umgebung!');
end
else
showmessage ('Sie besitzen nicht genug Geld!');
end;
Gleiches Problem wie oben !!!