Question

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

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

但是编译在属性声明上失败，消息'Property CountBy在基类中不存在'，并且开头的红色波形＆lt;属性名称。

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

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

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

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

Answer 1

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

我在文档中找不到明确说明该限制的任何内容。另一方面，文档仅描述了泛型类和泛型方法。 new language grammar to support generics也没有提及属性。

Answer 2

我不能加快仿制药的速度，但宣言不应该更像这个

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

在Delphi中使用泛型的属性

2 个答案: