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!

[sakura]

In Delphi musst Du die in eine Unit schreiben. Wenn Du die Klassen unbedingt trennen willst, dann solltest Du eine abstrakte Basisklasse (also eine dritte) für mind. eine der Klassen deklarieren und diese dann in eine dritte Unit packen. Dann kannst Du das Gewünschte erreichen. Stellt sich nur die Frage, ob sich hier der Aufwand lohnt :?

...:cat:...