在delphi中， reintroduce作用

在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