Delphi / pascal：使用不同的原型重载构造函数

发布时间：2020-12-15 10:09:39 所属栏目：大数据来源：网络整理

导读：我正在尝试创建一个TForm的子类某些情况下的特殊构造函数,和将保持与当前代码的兼容性的默认构造函数. 这是我现在的代码： interface TfrmEndoscopistSearch = class(TForm) public /// original constructor kept for compatibility constructor Create(A

我正在尝试创建一个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中编译.我需要公众使其编译,因为已发布的方法的重载受到限制.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!