访问祖先类的虚方法.docVIP

访问祖先类的虚方法 问题提出 在子类覆盖的虚方法中，可以用inherited调用父类的实现，但有时候我们并不需要父类的实现，而是想跃过父类直接调用祖先类的方法。 举个例子，假设有三个类，实现如下： type TClassA = class procedure Proc; virtual; end; ? TClassB = class(TClassA) procedure Proc; override; end; ? TClassC = class(TClassB) procedure Proc; override; end; ? implementation ? procedure TClassA.Proc; begin ShowMessage(Proc of class A); end; ? procedure TClassB.Proc; begin ShowMessage(Proc of class B); end; ? procedure TClassC.Proc; begin ShowMessage(Proc of class C); end; 用如下代码调用虚方法Proc： var C: TClassA; begin C := TClassC.Create; C.Proc; C.Free; en