类的应用问题

[Dlwxn]

有以下类定义：
TAClass=class
..
public
property BeginPoint:TPoint read FBeginPoint Write SetBeginPoint;
end;

TBClass=class(TAClass)
..
end;

TCClass=class(TAClass)
..
end;


Var
AClass:TAClass;
BPoint,CPoint:TPoint;

如果我要取TAClass的BeginPoint，现在我只能做到：
BPoint:=(AClass as TBClass).BeginPoint;
CPoint:=(AClass as TCClass).BeginPoint;
如果TAClass有很多子类，是不是要一个一个的这样取，能不能有简单的方法将BeginPoint取出来。

[IORILI]

BPoint:=TBClass.BeginPoint;
CPoint:=TCClass.BeginPoint;
不行吗?

[lxpbuaa]

直接：
BPoint:=AClass.BeginPoint;
CPoint:=AClassBeginPoint;
就可以了啊，因为TBClass和TCClass继承了TAClass公开的属性BeginPoint。

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[charles2118]

BPoint:=TBClass.BeginPoint;
CPoint:=TCClass.BeginPoint;
不就可以了，已经继承了啊

[charles2118]

BPoint:=TBClass.BeginPoint;
CPoint:=TCClass.BeginPoint;
不就可以了，已经继承了啊

[Dlwxn]

要用AClass这个变量,定义的类放在另一个单元中，这个单元直接引用的。

新建一个工程用 lxpbuaa(桂枝香在故国晚秋)的可以，在我现在的程序中不行，可能我的类定义有问题，我再找找 。

[Dlwxn]

如果改为以下定义呢：
TBClass=class(TAClass)
..
public
property EndPoint read FEndPoin Write SetEndPoint;
end;

TCClass=class(TAClass)
..
public
property Width read FWidth Write SetWidth ;
end;

是不是一定要这样取值？
BPoint:=(AClass as TBClass).EndPoint;
CPoint:=(AClass as TCClass).Width;

[Dlwxn]

搞定，晚上揭贴，谢谢各位！