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