问题描述
感谢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;
解决方法
是的
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;