tài sản sử dụng Generics trong Delphi

Question

Tôi đang cố gắng để viết một tài sản trong đó sử dụng Generics:

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

nhưng biên dịch không thành công trên tờ khai tài sản với thông điệp 'tài sản CountBy không tồn tại trong lớp cơ sở', và tiếng leng keng màu đỏ khi mở < của tên thuộc tính.

Có cách nào để đạt được điều này không?

Edit: Đây là trường hợp của tôi khác sử dụng, đó là phức tạp hơn nhưng hơn thế giới thực:

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

Chức năng lọc nội dung của một danh sách để trả lại món Index'th của lớp được chỉ định.

Answer 1

tính Generic không được hỗ trợ trong Delphi. Chỉ các lớp chung chung hoặc các phương thức chung chung.

Tôi không thể tìm thấy bất kỳ điều gì trong tài liệu nêu rõ ràng giới hạn đó. Mặt khác, tài liệu chỉ mô tả các lớp chung chung và các phương thức chung. Và new language grammar to support generics cũng không đề cập đến thuộc tính.

Answer 2

Tôi không lên đến tốc độ trên Generics nhưng không nên khai báo có nhiều như thế này

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