Klassendeklaration: Beidseitige Referenz

[himitsu]

die Lösung nennt sich Forward-Deklaration

Delphi-Quellcode:

TKlasse2 = class; // sagt, daß später einen Klasse TKlasse2 deklariert wird

TKlasse1 = class(TDatabase)
private
  FdbID: Integer;
  FKlassen2Objekte: TObjectList;
  procedure setdbID(Value: Integer);
public
  {* Overrides *}
  constructor Create; override;
  destructor Destroy; override;

  {* Properties *}
  property AddKlassen2Objekt: TKlasse2 write ... //<-- Hier kennt KLasse1 die Klasse2 nicht
end;

TKlasse2 = class(TKlasse1)
private 
...

es muß aber alles innerhalb eines gemeinsamen TYPE-Blocks stehen.