Elegantere Lösung um in dieser Struktur eine zirkuläre referenz zu umgehen?

[Zacherl]

Ich glaube du suchst nach Forward-Declarations:

Delphi-Quellcode:

type
  TClassB = class;
  
  TClassA = class(TObject)
  private
    FB: TClassB;
  end;

  TClassB = class(TObject)
  private
    FA: TClassA;
  end;