Delphi führt Quellcode nicht aus

**chat_4_free_desperados**

Hallo Leute

Ich soll für die Schule zu Hause so eine Art würfel Spiel mit mehreren Formularen machen. Das Würfelspiel heißt Crap oder auch CRAPS. nun hab ich soweit schon einiges fertig und muss feststellen dass Delphi bei einem Button den Quelltext nicht mehr ausführt. Dieser Button soll im Formular 5 sein und soll bewirken dass das ganze Spiel geschloßen wird und die Projekt1.exe aus dem Speicher verschwindet. Nur dies passiert nicht, hab nun zu übungszwecken denn Button so programmiert das mir eine Message angezigt wird, nur selbst dies klappt nicht. Und mit Hilfe von F7 hab ich gesehen das Delphi gar nicht den Quelltext an dieser Stelle liest. Kann mir jemand Helfen? Der Fehler tritt in Unit 5 auf, wenn BitBtn3 gedrückt wird. Im Anhang liegt das Würfelspiel gepackt in einem ZIP file.

zusammenfalten · markieren

Delphi-Quellcode:

			UNIT Unit1;

interface

//--------------------  ggf Uses-Liste anpassen !  --------------------

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

     Forms, Dialogs, StdCtrls, Buttons;

//uses mTForm ??

type

  TForm1 = class(TForm)

  // published Attribute

    BitBtn1 : TBitBtn;

    BitBtn2 : TBitBtn;

    BitBtn3 : TBitBtn;

    Label1 : TLabel;

  // published Methoden

    procedure BitBtn1Click (Sender: TObject); // nicht überschreibbar

    procedure BitBtn3Click (Sender: TObject); // nicht überschreibbar

   end;

var

  Form1:  TForm1;

implementation

uses Unit2;

{$R *.DFM}

//+---------------------------------------------------------------------

//|         TForm1: Methodendefinition

//+---------------------------------------------------------------------

//-------- BitBtn1Click (published) ---------------------------------------

procedure TForm1.BitBtn1Click (Sender: TObject);

begin

form2.show;

form1.hide;

end;

//-------- BitBtn3Click (published) ---------------------------------------

procedure TForm1.BitBtn3Click (Sender: TObject);

begin

close;

end;

end.

zusammenfalten · markieren

Delphi-Quellcode:

			UNIT Unit2;

interface

//--------------------  ggf Uses-Liste anpassen !  --------------------

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics,

     Controls, Forms, Dialogs, StdCtrls, Buttons, unit1

     ;

//uses mTForm ??

type

  TForm2 = class(TForm)

  // published Attribute

    BitBtn1 : TBitBtn;

    BitBtn2 : TBitBtn;

    Edit1 : TEdit;

    Edit2 : TEdit;

    Label1 : TLabel;

    Label2 : TLabel;

  // published Methoden

    procedure BitBtn1Click (Sender: TObject); // nicht überschreibbar

    procedure BitBtn2Click (Sender: TObject); // nicht überschreibbar

    procedure FormCreate (Sender: TObject); virtual; // nicht überschreibbar

   end;

var

  Form2:  TForm2;

  Kapital,einsatz:integer;

implementation

uses Unit3;

{$R *.DFM}

//+---------------------------------------------------------------------

//|         TForm2: Methodendefinition

//+---------------------------------------------------------------------

//-------- BitBtn1Click (published) ---------------------------------------

procedure TForm2.BitBtn1Click (Sender: TObject);

begin

Kapital:=strtoint(edit1.text);

If Kapital=0 then

  ShowMessage('Lüg mich doch nicht an !')

else

begin

Bitbtn1.Visible:=false;

Bitbtn1.Enabled:=false;

Label2.Visible:=true;

Edit2.Visible:=true;

Edit2.SetFocus;

Bitbtn2.Visible:=true;

Bitbtn2.Enabled:=true;

end;

end;

//-------- BitBtn2Click (published) ---------------------------------------

procedure TForm2.BitBtn2Click (Sender: TObject);

begin

Einsatz:=strtoint(edit2.Text);

if (Einsatz<=0) or (Einsatz>Kapital) then

 ShowMessage('Einsatz muss größer als 0 sein und darf nicht größer als dein gesamtes Kapital sein. Dein Kapital beträgt:' + IntToStr(Kapital) + '€')

else

begin

form3.show;

form2.hide;

end;

end;

//-------- FormCreate (published) -----------------------------------------

procedure TForm2.FormCreate (Sender: TObject);

begin

edit1.Text:='0';

edit2.Text:='0';

label2.Visible:=false;

edit2.visible:=false;

BitBtn2.Visible:=false;

bitbtn2.Enabled:=false;

end;

end.

zusammenfalten · markieren

Delphi-Quellcode:

			UNIT Unit3;

interface

//--------------------  ggf Uses-Liste anpassen !  --------------------

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

     Forms, Dialogs, StdCtrls, Buttons, unit1, unit2

     ;

//uses mTForm ??

type

  TForm3 = class(TForm)

  // published Attribute

    BitBtn1 : TBitBtn;

    Edit1 : TEdit;

    Edit2 : TEdit;

    Label1 : TLabel;

    Label2 : TLabel;

    Edit3: TEdit;

    Label3: TLabel;

    Edit4: TEdit;

    Label4: TLabel;

    Edit5: TEdit;

    BitBtn2: TBitBtn;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Label5: TLabel;

    Label6: TLabel;

  // published Methoden

    procedure FormShow(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject); // nicht überschreibbar

   end;

var

  Form3:  TForm3;

  wurfel1,wurfel2,wurfel3,wurfel4,wurfelgesamt,wurfelgesamt2:integer;

implementation

uses Unit4, Unit5, Unit6;

{$R *.DFM}

//+---------------------------------------------------------------------

//|         TForm3: Methodendefinition 

//+---------------------------------------------------------------------

//-------- FormCreate (published) -----------------------------------------

procedure TForm3.FormShow(Sender: TObject);

begin

edit3.text:='';

edit4.text:='';

edit5.text:='';

edit6.text:='';

edit7.text:='';

edit8.text:='';

BitBtn1.Visible:=true;

randomize;

Edit1.Text:=inttostr(Kapital);

Edit1.Enabled:=false;

Edit2.Text:=inttostr(Einsatz);

Edit2.Enabled:=false;

BitBtn2.Visible:=false;

edit6.Visible:=false;

edit7.visible:=false;

edit8.Visible:=false;

label5.Visible:=false;

label6.visible:=false;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

kapital:=kapital-einsatz;

if Kapital<0 then

begin

Form4.show;

Form3.hide;

end

else

Edit1.Text:=inttostr(Kapital);

wurfel1:=random(6)+1;

wurfel2:=random(6)+1;

wurfelgesamt:=wurfel1+wurfel2;

edit3.Text:=inttostr(wurfel1);

edit4.Text:=inttostr(wurfel2);

edit5.Text:=inttostr(wurfelgesamt);

if (wurfelgesamt=7) or (wurfelgesamt=11) then

 begin

  Kapital:=Kapital+(3*Einsatz);

  Edit1.Text:=inttostr(Kapital);

  Form5.show;

  form3.hide;

  end

else

  if (wurfelgesamt=2) or (wurfelgesamt=3) or (wurfelgesamt=12) then

   begin

    Form6.show;

    Form3.Visible:=true;

   end

  else

  begin

BitBtn1.Visible:=false;

BitBtn2.Visible:=true;

edit6.Visible:=true;

edit7.visible:=true;

edit8.Visible:=true;

label5.Visible:=true;

label6.visible:=true;

end;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

wurfel3:=random(6)+1;

wurfel4:=random(6)+1;

wurfelgesamt2:=wurfel3+wurfel4;

edit6.Text:=inttostr(wurfel3);

edit7.Text:=inttostr(wurfel4);

edit8.Text:=inttostr(wurfelgesamt2);

wurfelgesamt2:=wurfelgesamt;

if wurfelgesamt2=wurfelgesamt then

  begin

  Kapital:=Kapital+(3*Einsatz);

  Edit1.Text:=inttostr(Kapital);

  Form5.show;

  form3.hide;

  end

else

 begin

  if (wurfelgesamt2=2) or (wurfelgesamt2=3) or (wurfelgesamt2=12) then

   begin

    Form6.show;

   end;

end;

end;

end.

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

form1.close;

end;

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

Form1.show;

Form4.hide;

form2.Bitbtn1.Visible:=true;

form2.bitbtn1.enabled:=true;

form2.bitbtn2.Visible:=false;

form2.label2.visible:=false;

form2.edit2.visible:=false;

end;

end.

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit5;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, unit1, unit2, unit3, unit4, Buttons;

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    procedure FormShow(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form5: TForm5;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm5.FormShow(Sender: TObject);

begin

Edit1.Text:=inttostr(Kapital);

Edit1.Enabled:=false;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Form1.show;

Form5.hide;

form2.Bitbtn1.Visible:=true;

form2.bitbtn1.enabled:=true;

form2.bitbtn2.Visible:=false;

form2.label2.visible:=false;

form2.edit2.visible:=false;

form3.close;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
ShowMessage('Test') ;

end;end.

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit6;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus;

type

  TForm6 = class(TForm)

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form6: TForm6;

implementation

{$R *.dfm}

end.

Delphi führt Quellcode nicht aus

Delphi führt Quellcode nicht aus

Forumregeln