Delphi中虚方法的实现

1、打开RAD Studio开发工具，点击file--new--other

3、在代码中定义一个TMyClass父类，其包含一个虚方法，代码如下：type TMyClass = class name:String; procedure showName();virtual; end;虚函数声明有virtual关键字

5、编写父类和子类showName过程的具体实现代码如下：procedure TMyClass.showName;begin Writeln(self.name);end;{ TMyChClass }procedure TMyChClass.showName;begin inherited; Writeln('我是子类对象');end;

7、F9编译运行上面代码，结果如下图，子类覆盖了父类showName虚方法。虚方法的调用是通过一个虚拟表实现，在VCL中有很多实现