认识Delphi的虚方法(肖勇原创)

关键字：delphi  面向对象 虚方法 多态
案例说明：TParent类有两个虚方法，其子类TChild要覆盖这两个虚方法。
附件：下载地址

调用代码
调用代码：
procedure TForm1.Button1Click(Sender: TObject);
var c1:TChild;
begin
  c1:=TChild.Create;
  c1.setName('小燕子');
  //执行 TChild.setName中的inherited时
  //返回：child:parent:小燕子:小燕子

  //不屏蔽 TChild.setName中的inherited时
  //返回：child::小燕子
  showmessage(c1.getName);
end;

school类代码
school类代码
unit school;

interface

type
    //TParent声明了两个虚方法(方法必须定义，只是内容可以为空，也可以手工填写代码)
    //虚方法使用关键字virtual或者dynamic声明
    //在定义区按Ctrl+C可以自动生成代码

    //与Java抽象方法不同，Java抽象方法是只能有定义的不能有实现,Java不能有{}部分
    TParent = class
       private name:String;
       private age:integer;
       
       procedure setName(_name:String); virtual;
       function getName:string; dynamic;
    end;

    TChild = class(TParent)

       //如果不override父类的方法，那么TChild就不能直接使用这些方法
       //下面的override不要也可以运行，但是要知道override的含义是是多态中，当以父类的身份调用子类的方法时，如果方法被覆盖，那么执行的方法一定的子类自己的方法
       procedure setName(_name:String);override;
       function getName:string; override;
    end;


implementation


{ TParent }

function TParent.getName: string;
begin
  result:=name;
end;

procedure TParent.setName(_name:String);
begin
  self.name:='parent:'+_name;
end;


{ TChild }

function TChild.getName: string;
begin
  //父类的getName是dynamic，此处不能有inherited
   result:=self.name;
end;

procedure TChild.setName(_name: String);
begin
  inherited;
  //inherited表示先执行父类的setName方法，执行后self.name含有了"parent"
  //inherited可以不要
  self.name:='child:'+self.name+':'+_name;
end;

end.

虚方法与动态方法区别：
原理上的不同：
虚方法(virtual)：由于虚拟方法能被覆，在代码中调用一个指定的虚拟方法时编译器并不知道它的地址，因此，编译器通过建立虚拟方法表（VMT)来查找在运行时的函数地址。所有的虚拟方法在运行时通过VMT来调度，一个对象的VMT表中除了自己定义的虚拟方法外，还有它的父类所有的虚拟方法，因此虚拟方法比动态方法用的内存要多，但它执行得比较快。

动态方法(dynamic)：动态方法跟虚拟方法基本相似，只是它们的调度机制不同。编译器为每一个动态方法指定一个独一无二的数字，用这个数字和动态方法的地址构造一个动态方法表（DMT）。不像VMT表，在DMT表中仅有它声明的动态方法，并且这个方法需要祖先的DMT表来访问它父类的动态方法。正因为这样动态方法比虚拟方法用的内存要少，但执行起来罗慢，因为有可能要到祚对象的DMT中查找动态法。

编程上的不同：
子类在override父类的dynamic方法时，不能使用inherited，即不能继承父类的虚方法。