Record Vordefinieren...

[glkgereon]

Hi,

Ich weiss nicht genau wie ich mein Problem erklären soll... :gruebel:
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:

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.

:cry: :cry: :cry:

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:

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;