unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;
type
TForm1 =
class(TForm)
LPunktzahl: TLabel;
BBWuerfel1: TBitBtn;
BBWuerfel2: TBitBtn;
BBWuerfel3: TBitBtn;
procedure BBWuerfel1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type
TWuerfel =
class (TObject)
private
// Membervariablen
Augen: integer;
public
// Memberfunktionen
function getAugen (): integer;
procedure setAugen (worth: integer);
procedure werfen (TBBActual: TBitBtn);
end;
var
Form1: TForm1;
Wuerfel:
array[1..3]
of TWuerfel;
implementation
{$R *.dfm}
//TWuerfel
//Memberfunktionen
// getAugen
function TWuerfel.getAugen (): integer;
begin
getAugen:= Augen;
end;
//getAugen
// setAugen
procedure TWuerfel.setAugen (worth: integer);
begin
Augen:= worth;
// Hier wird Zugriffsverletzung angezeigt
end;
//setAugen
//Beliebige Funktionen
// werfen
// Aufgabe: Zufallszahl bestimmen und auf Würfel ausgeben
procedure TWuerfel.werfen (TBBActual: TBitBtn);
begin
// Zufallszahl würfeln
randomize;
setAugen (random (6)+1);
// Ergebnis anzeigen
TBBActual.Glyph.LoadFromFile (intToStr (getAugen) + '
.bmp');
end;
//werfen
//TForm1
// BBWuerfel1Click
procedure TForm1.BBWuerfel1Click(Sender: TObject);
begin
Wuerfel[1].werfen (BBWuerfel1);
end;
//BBWuerfelClick
end.