Record als Eigenschaft von sich selber

[MisterNiceGuy]

Schwer dieses Thema zu beschreiben, ich zeig mal an einem Beispiel was ich erreichen möchte:

Delphi-Quellcode:

type TAst = record
   UnterAst : TAst;
end;

Ich möchte also, dass mein Record sich selbst als Unterlement besitzt. Geht das irgendwie?

[Reinhardtinho]

Ich kenne es so, das man bei einem Record einen Zeiger auf den nächsten Record hat.

Delphi-Quellcode:

type 
  PAst = ^TAst;
  TAst = record
    UnterAst : PAst;
  end;
end;

[MisterNiceGuy]

Danke das geht, dann wirds wohl ein Pointer...

[uligerhardt]

Zitat von MisterNiceGuy:

Delphi-Quellcode:

type TAst = record
   UnterAst : TAst;
end;

Überleg dir mal, wie eine Variable von diesem Typ im Speicher ausschauen würde.
Vor allem, wenn UnterAst nicht das einzige Feld in TAst wäre.

[s.h.a.r.k]

Bei solchen Sachen würde ich dann auch eher zu Klassen tendieren, da diese da einfach mächtiger sind. Dort hast du auch einfach mehr Flexibilität.

[himitsu]

Grund: Der Record ist zu diesem Zeitpunkt (also innerhlab seiner eigenen Deklaration) noch nicht fertig.
Der Compiler weiß also noch nicht wie groß dieser mal wird
und kann demnach die Position des nächsten Feldes nicht berechnen.

Grund2: Dieses würde einen unendlichgroßen Record ergeben,
welches einfach nicht möglich ist.
> der Record wäre ja unendlich Mal in sich selber verschachtelt


Bei Objekten geht das, da dort zum Zeitpunkt der Kompilierung die Größe des Instanzzeigers ja schon feststeht.
Und da eine Klasse ein Zeiger ist, wird dieses auch nur einmal verschachtelt.

[Medium]

In Delphi muss bei solchen Strukturen in einer Klasse (wegen Grund 1) zudem eine Forward-Deklaration vorgenommen werden:

Delphi-Quellcode:

type
  TFoo = class;
  TFoo = class(TBar)
  private
    FSubFoo: TFoo;
  public
    // bla
  end;

Schaut erstmal nicht wirklich intuitiv aus, daher sei's gesagt.

[himitsu]

Zitat von Medium:

Forward-Deklaration vorgenommen werden:

Die Forward-Deklaration ist hier nicht nötig, da der Typ schon bekannt ust und auch daß es sich um eine Klasse handelt.
(aber schaden tut's zumindestens nichts)

Das Problem liegt z.B. hier an der Tatsache, daß TFuu erst später deklariert wird und zu diesem Zeitpunkt also noch unbekannt ist.

Delphi-Quellcode:

type
  TFuu = class;
  TFoo = class(TBier)
    FSubFuu: TFuu;
  end;
  TFuu = class(TBar)
  end;

[Medium]

Wa echt? Hui, dann hab ich das wohl mit 2 Klassen die sich gegenseitig referenzieren verdurmschelt. Scusi

[p80286]

@MisterNiceGuy

Wozu soll das Gut sein?
irgendwie reicht meine Phantasie nicht dafür aus.

Gruß
K-H