在Delphi上获取子类的子类的价值

如何解决在Delphi上获取子类的子类的价值

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

我正在创建一个具有特色类和子类的程序：

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，有什么方法吗？

解决方法

是的

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

是一种完全有效的方法，因为ValidPot是TBilliardBall的公共方法。但是，您一定不要将TBilliardBall的实例传递给此方法，因为这是没有实现ValidPot的抽象类。相反，您必须 传递TBilliardBallLow或TBilliardBallHigh对象。通过将BallHit参数声明为常规TBilliardBall，您可以自由传递上述两种类型的撞球。

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

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

现在，有一个小问题。在接口部分声明TBall类时，您尚未声明TBilliardBall，因此它仍然是未声明的类型。显然，您不能简单地颠倒顺序并在TBilliardBall之前声明TBall。

解决方案是使用forward declaration：

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

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

,

为什么首先要声明TBilliardBallLow和TBilliardBallHigh子类？如果将LowBall或HighBall包含为TBilliardBall类的属性，会不会容易得多。

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

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;