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.