获取 Delphi 上子类的子类的值

Question

感谢Andreas Rejbrand帮助我改进这个问题。

我正在创建一个程序，其中包含类和 sub类:

TBall= class
private
public    
  procedure Hit;
end;

TBilliardBall = class(TBall)
private
  number:integer;
public    
  procedure ValidPot; virtual; abstract;
end;

TBilliardBallLow= class(TBilliardBall)
private
public
  procedure ValidPot();override;
end;

TBilliardBallHigh= class(TBilliardBall )
private
public
  procedure ValidPot();override;
end;

在 var 部分，我为每个球组创建了 BallLow 和 BallHigh 子类的一个实例，并为每个球队和球类型做单独的功能：

Ball1 : TBilliardBallLow;
Ball2 : TBilliardBallLow;
Ball3 : TBilliardBallLow;
Ball4 : TBilliardBallLow;
Ball5 : TBilliardBallLow;
Ball6 : TBilliardBallLow;
Ball7 : TBilliardBallLow;
Ball9 : TBilliardBallHigh;
Ball10: TBilliardBallHigh;
Ball11: TBilliardBallHigh;
Ball12: TBilliardBallHigh;
Ball13: TBilliardBallHigh;
Ball14: TBilliardBallHigh;
Ball15: TBilliardBallHigh;

我正在研究一种方法，我得出结论，它需要接收一个球的参数，可以是高数或低数。如果我创建一个接收 TBilliardBall 的函数，并尝试发送我创建的实例之一，它会起作用吗？
我在想这样的事情：

procedure Button1OnClick(Sender: TObject)
begin
TBall.Hit(Ball1);
end;

procedure TBall.Hit(BallHit: TBilliardBall);
begin
Ballhit.Validpot;
end;

我的程序中需要validPot方法，有什么办法吗？

Answer 1

是的，

procedure TBall.Hit(BallHit: TBilliardBall);
begin
  BallHit.ValidPot;
end;

是一个完全有效的方法，因为 ValidPot 是 TBilliardBall 的 public 方法。但是你不能将 TBilliardBall 的实例传递给此方法，因为那是一个抽象 class，没有 ValidPot 的实现。相反，您必须传递 TBilliardBallLow 或 TBilliardBallHigh 对象。通过将 BallHit 参数声明为通用 TBilliardBall，您可以自由传递任何一种类型的台球。

此外，至少在您的示例中，这是 TBall 的方法。因此，在接口部分，您必须正确声明此方法：

TBall = class
private
public    
  procedure Hit(BallHit: TBilliardBall);
end;

现在，有个小问题。当你在接口部分声明 TBall class 时，你还没有声明 TBilliardBall，所以它仍然是一个未声明的类型。显然你不能简单地颠倒顺序并在 TBall.

之前声明 TBilliardBall

解决方案是使用 forward declaration:

TBilliardBall = class; // <-- a forward declaration

TBall = class
private
public    
  procedure Hit(BallHit: TBilliardBall);
end;

Answer 2

为什么首先要声明 TBilliardBallLow 和 TBilliardBallHigh 子class？如果将 LowBall 或 HighBall 作为 TBilliardBall class 的属性加入，岂不是更容易。

并且由于您已经在 TBilliardBall class 中存储了球编号，因此您可以使用简单的数学比较轻松计算出特定球是低球还是高球。所以你的 class TBilliardBall class 看起来像这样：

TBilliardBall = class(TBall)
private
  number:integer;
protected 
  function GetHigh: Boolean;
public    
  procedure ValidPot;
  property IsHigh: Boolean; read GetHigh;
end;

implementation

function TBilliardBall.GetHigh: Boolean;
begin
  if FNumber > 7 then result := True
  else Result := False;
end;

获取 Delphi 上子类的子类的值

Getting value of a subclass of a subclass on Delphi

delphi

delphi-6