OOP: Unidirektionale Beziehung wie realisieren?

[SirThornberry]

in dem Fall wäre es das beste die Basisklassen innerhalb einer Unit zu haben und dann forwarddeclarationen zu verwenden:

Delphi-Quellcode:

type
  TSpielfeld = class;
  TSpieler   = class;

  TSteuerung = class(TObject)
  public
    constructor Create(ASpieler: TSpieler);
  end;

  TSpieler = class(TObject)
  public
    constructor Create(ASpielfeld: TSpielfeld);
  end;

  TSpielfeld = class(TObject)
  public
    constructor Create(ASteuerung: TSteuerung);
  end;