Problem bei Würfelspiel

Desidirius · Hält's aus hier Beiträge: 1

Hi,bin neu hier und lerne seit kurzem delphi.Habe ein kleines problem mit dem quelltext.Erhalt immer die Fehlermeldung "Konstantenausdruck erwartet".
Kann mir jmd sagen wo der fehler liegt?
Wäre dankbar für eine schnell antwort.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var w,gewinn:integer;

begin
      randomize;
      w:=random(6)+1;
      case w of
      1:gewinn:=0;
      2:gewinn:=10;
      3:gewinn:=20;
      4:gewinn:=50;
      5:gewinn:=100;
      6:gewinn:=200;

      label1.caption:='ihr Gewinn beträgt:'+inttostr(gewinn)+'cent.';
end;
end;

end.

Moderiert von raziel: Delphi-Tags hinzugefügt

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject); 
 var w,gewinn:integer; 
begin 
  randomize; 
  w:=random(6)+1; 
  case w of 
  1:gewinn:=0; 
  2:gewinn:=10; 
  3:gewinn:=20; 
  4:gewinn:=50; 
  5:gewinn:=100; 
  6:gewinn:=200; 
  end; // Falsch gesetzt
  label1.caption:='ihr Gewinn beträgt:'+inttostr(gewinn)+'cent.'; 
end; 
end.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme