delphi - 父类在另一个类中

Question

好的，我有这个类，比如说 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)。谢谢。

Answer 1

你想要的 IIUC virtual methods .