Private Variable "verweigert Zutritt"

[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.

[Luckie]

Was ich in meinem Beispiel vergessen habe, ist das Freigeben der Instanz mit Free.

[Ralf Kaiser]

(Diesmal für mich: AUTSCH!!!)

Natürlich meinte ich Wuerfel[0].Free !!

[hoika]

Hallo,

klar muss das Wuerfel[i] erzeugt werden ;(
ich war auf Records aus.


Heiko