Delphi中如何将Class属性的getter方法改写成长尾？

本文共计428个文字，预计阅读时间需要2分钟。

我定义了一个基类和一些派生类，它们永远不会被实例化。它们只包含类函数和两个类属性。问题是Delphi要求使用`static`关键字声明类属性，因为不能将其声明为`virtual`，而我想要静态的属性。

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

问题是Delphi要求使用static关键字en声明类属性的属性get方法,因此不能将其声明为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;

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

类字段在通过继承关联的两个类之间共享.所以不能用于多态.而类静态方法也不能提供多态行为.

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