相关疑难解决方法(0)

想象一下国际象棋游戏的以下两类:

TChessBoard = class
private
  FBoard : array [1..8, 1..8] of TChessPiece;
...
end;

TChessPiece = class abstract
public
   procedure GetMoveTargets (BoardPos : TPoint; Board : TChessBoard; MoveTargetList : TList <TPoint>);
...
end;

我希望在两个单独的ChessBoard.pas和ChessPiece.pas单元中定义这两个类.

如何避免我遇到的圆形单元参考(在另一个单元的接口部分需要每个单元)？

如何通过将其添加到3个其他单元的实现部分的uses子句中来创建一个单元以便在之后调用它？

当我第一次创建一个单元时,我看到类似的东西:

unit Unit1;

interface

implementation

end.

如何在我的脚本中放置一些变量,以便从其他3个单元重新调用它们(以避免循环引用)？