Virtual Dynamic Inherited 使用

虚拟方法和动态方法不同于静态方法，它们可以在其后裔类中被覆盖（overridden），即只有一个方法所在类的祖先类对应的方法是virtual或dynamic的，这个当前类的方法才可以用overide覆盖。当一个覆盖方法被调用时，方法调用中使用的类或对象的实际（运行时）类型决定了哪一个实现是有效的，而非变量声明的类型决定。virtual方法是可以有实现的部分的，也可是在后裔类中override。 

abstract抽象方法是那些在类中声明但未实现的虚拟方法或动态方法。抽象方法的实现推延到后裔类中。声明抽象方法必需在指示字virtual或dynamic之后使用abstract。例如：procedure   DoSomething;   virtual;   abstract;     即abstract方法是没有实现的，实现推延到后裔类中，后裔override这个方法后可以有实现部分。 

inherited之后跟随一个成名名称，那么除了表示在封装了方法的类的直接祖先中搜寻成员之外，还可以表示标准的方法调用或者对属性或域的引用。 
也就是说运行到inherited时会告诉当前inherited所在方法中祖先类的同名方法，所以先看到showmessage出BaseAMethod。如果祖先类中有一个abc方法，那么在此也可调用，即   inherited   abc，即如果inherited后面没参数，执行时找祖先类同名方法，有参数如abc则在祖先类找那个 
abc方法。

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 TBaseObj=class
    public
        procedure   AMethod(str:string;i:integer=0);virtual;
        procedure   abc(str:string);virtual;
    end;
 TChildObj=class(TBaseObj)
        procedure   AMethod(str:string;i:Integer=0);
    end;
var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TBaseObj.abc(str: string);
begin
  ShowMessage('xushengkun'+str);
end;


procedure   TBaseObj.AMethod(str:string;i:integer=0);
begin
    showmessage( 'Base '+str);
end;





{ TChildObj }


procedure TChildObj.AMethod(str: string; i: Integer=0);
begin
  //showmessage( 'Child '+str);
   inherited abc('zhouzhuan');
   // showmessage( 'Child '+str);
end;




procedure TForm1.Button2Click(Sender: TObject);
var childobj:TChildObj;
begin
  childobj:=TChildObj.Create;
  childobj.AMethod( 'AMethod ');


end;


end.