我正在尝试创建一个TForm的子类
>某些情况下的特殊构造函数,和
>将保持与当前代码的兼容性的默认构造函数.
这是我现在的代码：
interface
TfrmEndoscopistSearch = class(TForm)
public
/// original constructor kept for compatibility
constructor Create(AOwner : TComponent); overload; override;
/// additional constructor allows for a caller-defined base data set
constructor Create(AOwner : TComponent; ADataSet : TDataSet; ACaption : string = ''); overload;
end;
它似乎工作,但我总是得到编译器警告：
[Warning] test.pas(44): Method 'Create' hides virtual method of base type 'TCustomForm'
>添加“超载”之后第二个构造函数将不会编译. “[error] test.pas(44)：”创建“的声明与以前的声明不同”.
>使第二个构造函数的类函数编译没有任何错误或警告,但在运行时死机访问冲突(所有成员vars为零).
解决方法
尝试在第二次重载之前添加重新引入,如下所示：
TfrmEndoscopistSearch = class(TForm)
public
/// original constructor kept for compatibility
constructor Create(AOwner : TComponent); overload; override;
/// additional constructor allows for a caller-defined base data set
constructor Create(AOwner : TComponent; ADataSet : TDataSet; ACaption : string = ''); reintroduce; overload;
end;
这在Turbo Delphi中编译.我需要公众使其编译,因为已发布的方法的重载受到限制.