Klassendeklaration: Beidseitige Referenz

[himitsu]

erste Unit:

Delphi-Quellcode:

TBasisKlasse2 = class;

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

  {* Properties *}
  property AddKlassen2Objekt: TBasisKlasse2 write ...
end;

TBasisKlasse2 = class(TKlasse1);

zweite Unit:

Delphi-Quellcode:

uses ErsteUnit;

TKlasse2 = class(TBasisKlasse2)
private
  FdbID: Integer;
public
  {* Overrides *}
  //constructor Create; override;
  //destructor Destroy; override;

  {* Properties *}
  ...
end;