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.