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