Private Variable "verweigert Zutritt"

[VinzRitt]

nochmal ist gut, ich habe das in delphi noch NIE gemacht!!!

Aber danke!!! Bei google, hab ich dazu nämlich WENIG hilfreiches bekommen...

[Luckie]

Delphi-Quellcode:

type
  TWuerfel = class (TObject)
  private
    FAugen: integer;
    function GetAugen: Integer;
    procedure SetAugen(Value: Integer);
  public    
    property Augen: Integer read GetAugen write SetAugen;
    procedure Werfen (TBBActual: TBitBtn);
  end;

var
  Form1: TForm1;
  Wuerfel: array[1..3] of TWuerfel;  // Warum global und nicht ein Feld der TForm Klasse??

[Luckie]

Delphi-Quellcode:

type
  TWuerfel = class (TObject)
  private
    FAugen: integer;
    function GetAugen: Integer;
    procedure SetAugen(Value: Integer);
  public
    property Augen: Integer read GetAugen write SetAugen;
    Constructor Create;
    procedure Werfen;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FWuerfel: TWuerfel;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TWuerfel }

constructor TWuerfel.Create;
begin
  Randomize;
end;

function TWuerfel.GetAugen: Integer;
begin
  Result := FAugen;
end;

procedure TWuerfel.SetAugen(Value: Integer);
begin
  FAugen := Value;
end;

procedure TWuerfel.Werfen;
var
  Augen: Integer;
begin
  Augen := Random(6) + 1;
  SetAugen(Augen);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FWuerfel := TWuerfel.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Augen: Integer;
begin
  FWuerfel.Werfen;
  Augen := FWuerfel.Augen;
  ShowMessage(IntToStr(Augen));
end;

[VinzRitt]

Darauf wär ich wohl nicht gekommen. Ich denke ich arbeite es stück für Stück auf. Mein Lehrer erklärts eh erst nächste Woche, also hab ich noch das WE um es vorher zu können. Die Lösung ist nachvollziehbar.

Wielen Dank also

P.S In C++ ist das irgendwie doch nicht unwesentlich einfacher Konstruiert.




-CLOSED-

[Luckie]

In jeder Sprache brauchst du einen Konstruktor.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Augen: Integer;
begin
  FWuerfel.Werfen;
  Augen := FWuerfel.Augen;
  case Augen of
    1:  // mach was hier;
    2:  // mach was hier;
    3:  // mach was hier;
    4:  // mach was hier;
    5:  // mach was hier;
    6:  // mach was hier;
  end;
end;

[hoika]

Hallo,

da du c++ erwähnst.
YSo wie du es hier geschrieben hast, sind es globale Variablen.
Bei lokalen würde c++ die Klassen selber erzeugen

class TWuerfel
{
}

void TuWas()
{
TWuerfel Wuerfel[3];
}


In Delphi sind Klassen immer Pointer, etwas so (mein c++ ist etwas eingerostet)
Du hast also ein Array von TWuerfel-Pointern angelegt.
Due Array muss auch wieder freigeben werden (In Delphi Wuerfel[0].Free) !

void TuWas()
{
TWuerfel* Wuerfel[3];
}

Du muss also erst Instancen erzeugen

new Wuerfel[0] (oder so ähnlich)


etwas einfacher ist es in Delphi mit dynamic arrays


Wuerfel: array of TWuerfel;

Initialisierung

SetLength(Wuerfel,3)
Wuerfel[0]
Wuerfel[1]
Wuerfel[2]

In paar Hilfsfunktionen
Low(Wuerfel) -> 0
High(Wuerfel) -> 2

Freigabe
Wuerfel:= NIL;



Heiko

[Ralf Kaiser]

Zitat von hoika:

etwas einfacher ist es in Delphi mit dynamic arrays

Wuerfel: array of TWuerfel;

Initialisierung

SetLength(Wuerfel,3)
Wuerfel[0]
Wuerfel[1]
Wuerfel[2]

In paar Hilfsfunktionen
Low(Wuerfel) -> 0
High(Wuerfel) -> 2

Freigabe
Wuerfel:= NIL;

AUTSCH!!

Auch bei dynamischen Arrays müssen die Instanzen erzeugt werden!

Initialisierung:

Delphi-Quellcode:

SetLength(Wuerfel,3)
Wuerfel[0] := TWuerfel.Create;
Wuerfel[1] := TWuerfel.Create;
Wuerfel[2] := TWuerfel.Create;

Freigabe:

Wuerfel.Free; Eine Freigabe durch die Zuweisung von NIL erfolgt nur wenn es sich um ein Interfaces handelt!!!

[himitsu]

Zitat von Ralf Kaiser:

Freigabe:

Wuerfel.Free; Eine Freigabe durch die Zuweisung von NIL erfolgt nur wenn es sich um ein Interfaces handelt!!!

Dynamische Arrays und Free?

Wuerfel := nil; oder SetLength(Wuerfel, 0); , wobei Delphi dynamische Arrays auch automatisch freigibt, genauso wie die Interfaces.
Aber die TWuerfel-Instanzen müssen vorher noch freigegeben werden
Wuerfel[i].Free; (am Einfachsten in einer Schleife, welche das Array durchgeht)

PS: Genau deswegen hat man die TObjectList erfunden, da sie sich um die Freigabe kümmern kann.