habe sie jetzt einfach so hingemacht, nur bei mir zeigen sich noch 14 Fehler an.
Kann mir da jemand bei den proceduren helfen, was ich falsch gemacht habe etc.
Muss bis morgen fertig werden.
Danke schonmal
Hier meine proceduren:
Was haltet ihr davon, was muss ich da verbessern?
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ImgList, ExtCtrls;
type
TForm1 =
class(TForm)
EinsatzLbl: TLabel;
EndeBtn: TButton;
ImageList1: TImageList;
GuthabenLbl: TLabel;
EinsatzCbB: TComboBox;
Label1: TLabel;
TButton: TButton;
Image1: TImage;
Image2: TImage;
procedure EndeBtnClick(Sender: TObject);
procedure TButtonClick(Sender: TObject);
private
{ Private-Deklarationen}
public
{ Public-Deklarationen}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.EndeBtnClick(Sender: TObject);
begin
close;
end;
procedure TForm1.TButtonClick(Sender: TObject);
var einsatz, guthaben, wurf1, wurf2, augensumme: byte;
begin randomize;
end;
Image1.Visible:=false;
Image2.Visible:=false;
Image3.Visible:=false;
Image4.Visible:=false;
Image5.Visible:=false;
Image6.Visible:=false;
Image7.Visible:=false;
Image8.Visible:=false;
Image9.Visible:=false;
Image10.Visible:=false;
Image11.Visible:=false;
Image12.Visible:=false;
einsatz:=strtoint (einsatzCbB.text);
Wurf1:=random(6)+1;
wurf2:=random(6)+1;
augensumme:=wurf1+wurf2;
case augensumme
OF
2..6:
BEGIN
ErgebnisPanel.Caption:='
Einsatz verloren';
faktor:= 0 ;
end;
7,8,9:
BEGIN
ErgebnisPanel.Caption:='
Einsatz zurück';
faktor:= 1;
end;
10:=BEGIN
ErgebnisPanel.Caption:=Einsatz verdoppelt'
;
faktor:= 2;
end;
11:=BEGIN
ErgebnisPanel.Caption:='Einsatz verdreifacht'
;
faktor:= 3;
end;
12:=BEGIN
ErgebnisPanel.Caption:='Einsatz vervierfacht'
;
faktor:= 4;
end;
else ErgebnisPanel.Caption:='Würfel auf Kippe :P'
;
case wurf1 OF
1: BEGIN Image1.visible:=true; Image1.width:=80;end;
2: BEGIN Image2.visible:=true; Image2.width:=80;end;
3: BEGIN Image3.visible:=true; Image3.width:=80;end;
4: BEGIN Image4.visible:=true; Image4.width:=80;end;
5: BEGIN Image5.visible:=true; Image5.width:=80;end;
6: BEGIN Image6.visible:=true; Image6.width:=80;end;
END;
case wurf2 OF
1:BEGIN Image7.visible:=true; Image7.width:=80;end;
2.BEGIN Image8.visible:=true; Image8.width:=80;end;
3.BEGIN Image9.visible:=true; Image9.width:=80;end;
4.BEGIN Image10.visible:=true; Image10.width:=80;end;
5.BEGIN Image11.visible:=true; Image11.width:=80;end;
6.BEGIN Image12.visible:=true; Image12.width:=80;end;
end;
end;//of case ;-)
Ergebnis2Panel.caption:=inttostr(faktor*einsatz);
end;
end.