Klassen die sich gegenseitig beinhalten

[Grishnak]

Hallo!

Angenommen ich habe folgende Klassen:

Delphi-Quellcode:

type
  TParent = class
    FChildren: array of TChild;
  end;

und

Delphi-Quellcode:

type
  TChild = class
    FFather: TParent;
    FMother: TParent;
  end;

Muss ich dann beide Definitionen in eine Unit schreiben:

Delphi-Quellcode:

type
  TChild = class;

  TParent = class
    FChildren: array of TChild;
  end;

  TChild = class
    FFather: TParent;
    FMother: TParent;
  end;

Oder gibt es irgendeinen Trick, für jede Klasse eine eigene Unit zu nehmen? Mir ist bekannt, dass ich z.B. FChildren als auch "array of TObject" deklarieren kann und dann mittels "FChildren[i] as TChildren" arbeiten kann, aber das will ich nicht!