Delphi的Create到底要不要声明为virtual供子类覆盖？

最新推荐文章于 2024-09-02 16:42:58 发布

最新推荐文章于 2024-09-02 16:42:58 发布 · 182 阅读

文章标签：

#Delphi

本文探讨了在Delphi中如何正确地覆盖父类的构造函数。指出若要实现子类构造函数对父类构造函数的有效覆盖，父类构造函数必须声明为virtual，并在子类中使用override关键字。通过具体代码示例展示了如果不这样做，则子类的构造函数可能不会被执行。

在D6上做了一个实验，如果子类要想覆盖父类的Creat构造函数，父类的Create必须声明为virtual，否则有时子类的代码执行不到！

TSvrBizObj = class(TPersistent) private FDBService: TLYService; public constructor Create(ADBService: TxxService); end; TDemoObj = class(TSvrBizObj) public // constructor Create(ADBService: TxxService); end; ... constructor TSvrBizObj.Create(ADBService: TxxService); begin FDBService := ADBService; if not FDBService.Connection.Connected then FDBService.Connection.Open; end; constructor TDemoObj.Create(ADBService: TService); begin inherited Create(ADBService); ShowMessage('a'); end;

再写一段测试代码，看看DemoObj中的Create执行了没：

var FClass: TSvrBizObjClass; Obj: TSvrBizObj; begin FClass := TSvrBizObjClass(GetClass('TDemoObj')); Obj := FClass.Create(FService); ... end;

可以看到，在这段测试代码中，ShowMessage这一句没有执行到！解决方法是把父类的Create声明为virtual，在子类中override。