establecimiento a través de los genéricos en Delphi

Question

Estoy intentando escribir una propiedad que utiliza los genéricos:

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

pero el compilador falla en la declaración de propiedad con el mensaje 'Propiedad CountBy no existe en la clase base', y el garabato rojo en la apertura < del nombre de la propiedad.

¿Hay alguna manera de lograr esto?

Editar: Aquí es mi otro caso de uso, lo que es más complejo, pero el mundo más real:

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

La función filtra el contenido de una lista para devolver el artículo Index'th de la clase especificada.

Answer 1

propiedades genéricas no son compatibles con Delphi. Solo clases genéricas o métodos genéricos.

No puedo encontrar nada en la documentación que explícitamente establece esa limitación. Por otro lado, la documentación solo describe clases genéricas y métodos genéricos. Y el new language grammar to support generics tampoco hace mención de las propiedades.

Answer 2

no estoy al tanto de los genéricos, pero no debería ser la declaración de la misma familia

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