overridden/inherited关键字的读书笔记

虚拟方法和动态方法不同于静态方法，它们可以在其后裔类中被覆盖（overridden），即只有一个方法所在类的祖先类对应的方法是virtual或dynamic的，这个当前类的方法才可以用overide覆盖。当一个覆盖方法被调用时，方法调用中使用的类或对象的实际（运行时）类型决定了哪一个实现是有效的，而非变量声明的类型决定。virtual方法是可以有实现的部分的，也可是在后裔类中override。  
  abstract抽象方法是那些在类中声明但未实现的虚拟方法或动态方法。抽象方法的实现推延到后裔类中。声明抽象方法必需在指示字virtual或dynamic之后使用abstract。例如：procedure   DoSomething;   virtual;   abstract;     即abstract方法是没有实现的，实现推延到后裔类中，后裔override这个方法后可以有实现部分。  
  如果：  
  TBaseObj=class  
      public  
          procedure   AMethod;  
      end;  
  TChildObj=class(TBaseObj)  
          procedure   AMethod;  
      end;  
  {   TBaseObj   }  
  procedure   TBaseObj.AMethod(str:string);  
  begin  
      showmessage('TBaseObj.AMethod;');  
  end;  
  {   TObj   }  
  procedure   TChildObj.AMethod(str:string);  
  begin  
      showmessage('TChildObj.AMethod;');  
  end;  
  实际上两个类的AMethod方法无任何关系。子类中将看不到祖先类的AMethod方法，而只有自已的AMethod方法,运行下面事件过程将执行  
    showmessage('TChildObj.AMethod;');  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  var  
      childobj:TChildObj;  
  begin  
      childobj:=TChildObj.Create;  
      childobj.AMethod;  
  end;  
  如果  
  TBaseObj=class  
      public  
          procedure   AMethod(str:string;i:integer=0);virtual;  
      end;  
  TChildObj=class(TBaseObj)  
          procedure   AMethod(str:string);  
      end;  
  pprocedure   TBaseObj.AMethod(str:string;i:integer=0);  
  begin  
      showmessage('Base'+str);  
  end;  
  {   TObj   }  
  procedure   TChildObj.AMethod(str:string;i:integer=0);  
  begin  
      showmessage('Child'+str);  
  end;  
  执行下面事件过程，将看到showmessage中显示'ChildAMethod;'     并有[Warning]   Unit1.pas(28):   Method   'AMethod'   hides   virtual   method   of   base   type   'TBaseObj'的编译信息显示，说明在子类没有用override关键字时，声明一个与祖先类同名的方法是会隐藏祖先类的同名方法，执行自已的方法。而在子类方法声明后加reintroduce就不会有编译信息显示。如果使用override，要保证子类与祖先类方法的参数类型，顺序返回值相同，不然会在编译时报错：  
  因此交上面子类声明改为：procedure   AMethod(str:string;i:integer=0);override;，实现部分也要相应更改，这样执行下面事件过程，即子类方法覆盖了祖先类方法最后将看到showmessage中显示'ChildAMethod;'   ，如果有多个子类，都override那个virtual的祖先类的方法，那么最后执行结果是子类的这个AMethod方法，覆盖了祖先类同名方法的实现内容。实际上如果祖先类的这个方法是virtual;abstract的结果也是一样的，。即祖先类只定义一个声明，具体实现由这个祖先类的子类们去完成，执行不同子类结果不同，因为各子类的AMethod实现细节都有所不同。  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  var  
      childobj:TChildObj;  
  begin  
      childobj:=TChildObj.Create;  
      childobj.AMethod('AMethod;');  
  end;  
  另一个有用的东西是：inherited关键字，如果将上面的子类方法实现改为：  
  procedure   TChildObj.AMethod(str:string;i:integer=0);  
  begin  
      inherited;  
      showmessage('Child'+str);  
  end;  
  然后再运行Button2Click，则会先看到showmessage出BaseAMethod，再看到showmessage出ChildAMethod。为什么会有这种现象呢，看一下关于inherited的说明：  
      保留字inherited在实现多种行为中扮演特殊的角色。它可以出现在方法定义中，在其后面可以有或没有标识符。  
  如果inherited之后跟随一个成名名称，那么除了表示在封装了方法的类的直接祖先中搜寻成员之外，还可以表示标准的方法调用或者对属性或域的引用。  
  也就是说运行到inherited时会告诉当前inherited所在方法中祖先类的同名方法，所以先看到showmessage出BaseAMethod。如果祖先类中有一个abc方法，那么在此也可调用，即   inherited   abc，即如果inherited后面没参数，执行时找祖先类同名方法，有参数如abc则在祖先类找那个  
  abc方法。