delphi – 如何重载父类中引入的虚函数？

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

导读：我有一个父类,有一个重要的抽象过程,我在许多子类中重载,如下所示的示例代码： TCParent = Classprivatepublic procedure SaveConfig; virtual; abstract;end;TCChild = Class(TCParent)privatepublic procedure SaveConfig; override;end; 现在,我需要(重载

我有一个父类,有一个重要的抽象过程,我在许多子类中重载,如下所示的示例代码：

TCParent = Class
private
public
 procedure SaveConfig; virtual; abstract;

end;

TCChild = Class(TCParent)
private
public
 procedure SaveConfig; override;
end;

现在,我需要(重载)此过程与另一个接受参数的SaveConfig过程,但我不想在父类中进行大的更改,这可能需要我去所有其他子类中进行更改.

有没有办法可以在这个特定的子类中重载SaveConfig而不对父类和从它继承的其他子类进行大的更改？

解决方法

您可以使用重新引入来添加新的重载方法.注意重新引入的顺序;超载;在儿童班是必需的;如果你反转它们,代码将无法编译.

TCParent = Class
private
public
 procedure SaveConfig; virtual; abstract;
end;

TCChild = Class(TCParent)
private
public
 procedure SaveConfig; overload; override;
 procedure SaveConfig(const FileName: string); reintroduce; overload;
end;

(在Delphi 7中测试过,所以应该在它和所有更高版本中使用.)

（编辑：李大同）

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