另一个类里面的父类

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你想要虚拟方法.