Fehler: TYP noch nicht vollständig deklariert

[Zacherl]

Hi,

ich habe versucht folgenden Typ zu deklarieren:

Delphi-Quellcode:

type
  TCatData = record
    Caption: string;
    ImageIndex: integer;
    SubCats: array of TCatData;  <-- Fehler: TCatData wurde noch nicht vollständig deklariert
  end;

Nun bekomme ich den Fehler: "TCatData wurde noch nicht vollständig deklariert". Mir ist grade entfallen, wie ich Typen vordefinieren kann.

Helft mir auf die Sprünge bitte :D

[Robert Marquardt]

Das geht gar nicht. Der Compiler will herausbekommen wie gross das record ist und das ist bei so einer rekursiven Deklaration unmoeglich.
Es geht das du Zeiger auf das record benutzen kannst. Diese kann man vor der record Deklaration im gleichen type Bereich deklarieren.
Es ginge wenn der Compiler ein Mehrpass-compiler waere, aber ein Pascal-Compiler ist nun mal traditionell ein Einpass-Compiler.

[Daniel G]

Äh... geht das überhaupt? Ich meine, Subdata ist vom Typ TCatData. Und Subdata ist in TCatData deklariert.

//Edit: Rekursiv... Das Wort hatte ich gesucht. :wall: Na ja, Robert war schneller... :stupid:

[Zacherl]

Okey, vielen Dank:

Delphi-Quellcode:

type
  PCatData = ^TCatData;
  TCatData = record
    Caption: string;
    ImageIndex: integer;
    SubCats: array of PCatData;
  end;

so geht es ..

//Edit: Und ja, es soll sogar rekursiv sein, weil ich eine rekursive Funktion mit den Datensätzen füttere :D

[hoika]

Hallo,

mit forward geht es auch

Delphi-Quellcode:

type
  TCatData = record; forward;

  TCatData = record
    Caption: string;
    ImageIndex: integer;
    SubCats: array of TCatData;
  end;

Heiko

[Hawkeye219]

Zitat:

Zitat von hoika

mit forward geht es auch

Heiko, mit welcher Delphi-Version hast du es getestet?

Gruß Hawkeye

[hoika]

Hallo,

war aber nur so getippert *zugeb*

Bei Klassen würde das gehen, bei Records wohl nicth.
Wieder ein Grund, gleich Klassen zu benutzen ... ;)

Delphi-Quellcode:

type
  TCatData = class;

  TCatData = class
    Caption: string;
    ImageIndex: integer;
    SubCats: array of TCatData;
  end;

Aber in diesem Fall würde ich eh TList (oder einen Abkömmling)
anstatt des arrays benutzen,
auch wenn Pointer das vereinfachen.


Heiko

[Zacherl]

Danach suchte ich .. habe dann aber auch gemerkt, dass es nur mit Objecten geht. Der ganze Record hat nur den Sinn intern eine Struktur darzustellen, welche dann später auf einen VirtualStringTree übertragen wird.
Da lohnte es sich nicht extra mit Objecten zu arbeiten.