在Delphi中使用泛型的属性

Question

我正在尝试编写一个使用泛型的属性:

type TMyClass = class
  protected
    function GetCountBy<T: Class>: Integer;
  public
    property CountBy<T: Class>: Integer read GetCountBy<T>;
  end;

但是编译在属性声明上失败,并且消息'Property CountBy在基类中不存在',并且在属性名称的开头<上出现红色波形.

有没有办法实现这个目标？

编辑:这是我的另一个用例,它更复杂但更真实:

property ItemsBy<T: Class>[Index: Integer]: T read GetItemsBy<T> write SetItemsBy<T>;

该函数过滤列表的内容以返回指定类的Index'th项.

Answer 1

Delphi不支持通用属性.只有泛型类或泛型方法.

我在文档中找不到明确说明该限制的任何内容.另一方面,文档仅描述了泛型类和泛型方法.支持泛型的新语言语法也没有提到属性.