delphi - 如何在 Delphi 中重写类属性 getter

Question

我定义了一个基类和一些派生类，它们永远不会被实例化。它们仅包含类函数和两个类属性。

问题是Delphi要求类属性的property get方法用static关键字声明，因此不能声明virtual，所以我可以重写它派生类。

所以这段代码会导致编译错误:

    TQuantity = class(TObject)
    protected
      class function GetID: string; virtual; //Error: [DCC Error] E2355 Class property accessor must be a class field or class static method
      class function GetName: string; virtual;
    public
      class property ID: string read GetID;
      class property Name: string read GetName;
    end;

    TQuantitySpeed = class(TQuantity)
    protected
      class function GetID: string; override;
      class function GetName: string; override;
    end;

所以问题是:如何定义一个类属性，其结果值可以在派生类中重写？

使用Delphi XE2，Update4。

更新:根据 David Heffernan 的建议，使用函数而不是属性解决了这个问题:

    TQuantity = class(TObject)
    public
      class function ID: string; virtual;
      class function Name: string; virtual;
    end;

    TQuantitySpeed = class(TQuantity)
    protected
      class function ID: string; override;
      class function Name: string; override;
    end;

Answer 1

How do you define a class property whose resulting value can be overridden in derived classes?

您不能，正如编译器错误消息所表明的那样:

E2355 Class property accessor must be a class field or class static method

类字段在通过继承相关的两个类之间共享。所以不能用于多态性。并且类静态方法也无法提供多态行为。

使用虚拟类函数而不是类属性。