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

program roulette;

uses
  Forms,
  Unitspiel in 'Unitspiel.pas' {Spielflaeche};


{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TSpielflaeche, Spielflaeche);
  Application.Run;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

unit Unitspiel;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, Unitcroupier, Unitspieler, Unitbrett, Unitkessel, ExtCtrls,
  StdCtrls;


type
  TSpielflaeche = class(TForm)
    background: TImage;
    l_player2: TLabel;
    l_player1: TLabel;
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Spielflaeche: TSpielflaeche;

implementation

{$R *.dfm}

procedure TSpielflaeche.FormCreate(Sender: TObject);

var player1,player2 :Tspieler;
    croupier        :Tcroupier;
    kessel          :Tkessel;
    //Ende Objektreferenzen
    playername      :string;
    account         :integer;


begin
 Spielflaeche.Caption:='Roulette (Suchtgefahr!)'; //Ueberschrift

 //Objektinstanzen erstellen
   croupier := Tcroupier.create;
   kessel   := Tkessel.create;
   player1  := Tspieler.create('player1',0);
   player2  := Tspieler.create('player2',0);

 //ende

 {Captions am Anfang}

  l_player1.Caption := player1.showname;
  l_player2.Caption := player2.showname;
end;



end.