Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TSpielflaeche.table_click(Sender: TObject);
var bet,x,y :integer;
begin
x := (Sender as Tlabel).left+((Sender as Tlabel).Width - Image7.Width) div 2) -32;
y := ((Sender as Tlabel).top+((Sender as Tlabel).Height-Image7.Width) div 2) -82;
bet := (Sender as TLabel).Tag;
case bet of
0..36 : croupier.set_chance('plein',x,y,bet);
37..96 : croupier.set_chance('cheval',x,y,bet);
97..110 : croupier.set_chance('trplein',x,y,bet);
111..133: croupier.set_chance('carre',x,y,bet);
134..144: croupier.set_chance('trsimple',x,y,bet);
145..150: croupier.set_chance('dozen',x,y,bet);
151..156: croupier.set_chance('semi',x,y,bet);
end;
end; |
Da bekomme ich folgende Fehlermeldungen.
[Fehler] Unitspiel.pas(445): 'END' erwartet, aber ')' gefunden
[Fehler] Unitspiel.pas(450): ';' erwartet, aber 'CASE' gefunden
[Fehler] Unitspiel.pas(458): '.' erwartet, aber ';' gefunden
was kann das denn bedeuten? ich sehe da gar keinen fehler.
danke für die hilfe im voraus
Bockscar