解决方法
关键字是最终的,如你所想.请参阅
http://dn.codegear.com/article/34324和
http://blogs.teamb.com/rudyvelthuis/2005/05/13/4311.此外,您可以将您的课程标记为已密封,以防止任何人继承该课程.您需要高于7的Delphi版本.
type
TSomeClass = class
protected
procedure SomeVirtualMethod; virtual;
end;
TOtherClass = class(TSomeClass)
protected
procedure SomeVirtualMethod; override; final;
end;