delphi reintroduce作用

当在子类中重载或者重新声明父类的虚方法时,使用 reintroduce 关键字告知编译器,可以消除警告信息.
　　如:

　　     TParent   =   class

　　         procedure   proc;virtual;

　　     end;

　　

　　     TChild   =   class(TParent)

　　         procedure   proc;   reintroduce;   overload;     //重载

　　         //procedure   proc;   reintroduce;     //重新声明

　　     end;

　　如果此时没有reintroduce关键字,则会出现如下的警告信息:
　　
　　 [Warning]   Unit1.pas(20):   Method   'proc'   hides   virtual   method   of   base   type   'TParent'

　　
　　典型的应用是，你要改变CREATE的参数，那么重新声明的CREATE跟父类的不一样，所以要REINTRODUCE，实际的函数可能是这个样子：
　　

　　 Constructor   Create(AOwner:   TComponent;   NewParam:   Integer);

　　 begin

　　     Create(AOwner);

　　     ...   //do   something   for   NewParam

巴特西

delphi reintroduce作用

最新文章

热门文章