delphi - 循环引用修复？

Question

我在一个单独的单元中有一个 Player 类，如下所示:

TPlayer = class
private
  ...
  FWorld: TWorld;
  ...
public
  ...
end;

我还在一个单独的单元中拥有世界级类(class)，如下所示:

TWorld = class
private
  ...
  FPlayer: TPlayer;
  ...
public
  ...
end;

我这样做是为了让Player可以通过FWorld从世界获取数据，并且世界中的其他对象也可以以类似的方式获取玩家数据。

正如您所看到的，这会导致循环引用(因此不起作用)。我读到这意味着糟糕的代码设计，但我只是想不出更好的其他方法。有什么更好的方法可以做到这一点？

干杯!

Answer 1

每隔一段时间就需要这样做，然后你就这样做:

//forward declaration:
TWorld = class;

TPlayer = class
private 
  FWorld: TWorld;
public
end;

TWorld = class
private
  FPlayer: TPlayer;
public
end;