Record Vordefinieren...

[glkgereon]

Hi,

Ich weiss nicht genau wie ich mein Problem erklären soll...
Es geht im Prinzip darum dass ich zwei Typen habe (Array & Record) die sich gegenseitig als untertyp haben sollen...

beispiel:

Delphi-Quellcode:

 TNode = record end; //Platzhalter...
  TItem = (i1,i2,i3);
  TItems = array [TItem] of TNode;
  TNode = record //<<-- Fehler
    Count: Integer;
    HasSubs: Boolean;
    Case Boolean of
      True: (Sub: TItems);
      False: ();
    end;
  end;

nun kommt aber leider der Fehler "Bezeichner redefiniert" wo er ja auch irgendwie recht hat...Aber irgendwie muss es doich gehen...


BTW: funzt der Variant so? Ist so Standardmäßig Sub nicht vorhanden?

[Dax]

Das geht nicht! Rekursive verschachtelungen sind aus gutem Grund verboten. Das gäbe in Nullzeit unendlichen hohen Speicherverbrauch

Nimm besser Pointer auf Records oder, noch besser, gleich Klassen.

[glkgereon]

Zitat von Dax:

Das geht nicht! Rekursive verschachtelungen sind aus gutem Grund verboten. Das gäbe in Nullzeit unendlichen hohen Speicherverbrauch

Nimm besser Pointer auf Records oder, noch besser, gleich Klassen.

Wenn es mit dem Variant so klappt wie ich will dann nicht....

Und ich habe ehrlich gesagt da jetzt keinn lust für die 2 sachen mit klassen oder pointern rumzumachen :-/
geht es nicht irgendwie so?

(Wobei du prinzipiell ja recht hast...)

PS: ausserdem ist es ja auch nicht wirklich antwort auf meine frage.

[Dax]

Nein. Der Record alloziert(...) direkt Platz für alles, inklusive größtem Teil der Variant-Sektion, die nun mal rekursive verschachtelungen definitiv einschließen..

[glkgereon]

Zitat von Dax:

Nein. Der Record alloziert(...) direkt Platz für alles, inklusive größtem Teil der Variant-Sektion, die nun mal rekursive verschachtelungen definitiv einschließen..

mist :-/

dann also doch klassen....

[mkinzler]

Zitat:

dann also doch klassen....

Oder ne verkette Liste anstatt des Arrays. Denn Zeiger kann man forward deklarieren.

Delphi-Quellcode:

PNode = ^TNode;
TNode = record  
    Count: Integer;
    HasSubs: Boolean;
    Case Boolean of
      True: (Sub: PNode);
      False: ();
    end;
  end;