好的，我有这个类，比如说 CMain，它包含一个 CFruit 类。我想做的是根据 CFruit 的类型运行函数(如果是 CPear 或 CApple 等)。所以我想做这样的事情:
type CMain = class
myFruit : CFruit;
function GetFruit() : CFruit;
procedure SetFruit( Fruit : CFruit );
end;
procedure CMain.SetFruit( Fruit : CFruit );
begin
if Fruit.IsPear then .. else etc;
end;
...显然编译器阻止我这样做，因为 CFruit 只是 CPear 和 CApple 的父级。我有什么可行的方法可以做到这一点吗？ (不可能制作单独的 CMain)。谢谢。
最佳答案
你想要的 IIUC virtual methods .
关于delphi - 父类在另一个类中，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/3789437/