Entwickler-Ecke

Sonstiges (Delphi) - Problem bei Würfelspiel


Desidirius - Do 08.03.07 21:55
Titel: Problem bei Würfelspiel
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.


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 user profile iconraziel: Delphi-Tags hinzugefügt


Blackheart666 - Do 08.03.07 22:19

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.


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!