Làm thế nào để khai báo một loại thiết lập của một loại enum trong một lớp chung

Question

Tôi đã gặp một số hành vi lạ trong Delphi XE4.

Tôi không thể khai báo loại set trong một lớp chung, trong đó loại thứ tự được khai báo trong cùng một lớp.

Ví dụ:

TTest<T> = class(TObject) 
type 
    TEnumType = (eOne, eTwo, eThree); 
    TEnumTypes = set of TEnumType; 
end; 

Ở trên không biên dịch. Trình biên dịch phát ra lỗi "E2001: Loại thông thường bắt buộc".

Một lớp học không chung chung như

TTest = class(TObject) 
type 
    TEnumType = (eOne, eTwo, eThree); 
    TEnumTypes = set of TEnumType; 
end; 

không biên dịch.

Đối với các lớp tổng quát để biên dịch thành công, loại thứ phải được khai báo bên ngoài các lớp:

TEnumType = (eOne, eTwo, eThree); 
TTest<T> = class(TObject) 
type 
    TEnumTypes = set of TEnumType; 
end; 

---

1. là hành vi này được coi là một lỗi? Nếu có, nó đã được sửa trong một phiên bản sau?
2. Có ai có cách giải quyết khác không? Tôi muốn khai báo các loại trong lớp vì chúng được sử dụng riêng trong các phần riêng của lớp này.

Answer 1

Từ nhìn vào theo dõi vấn đề nó có vẻ là một hồi quy xung quanh XE3/XE4 mà đã cố định trong các phiên bản sau:

• http://qc.embarcadero.com/wc/qcmain.aspx?d=126675
• http://qc.embarcadero.com/wc/qcmain.aspx?d=112682
• http://qc.embarcadero.com/wc/qcmain.aspx?d=117200

Answer 2

Đây thực sự là lỗi được sửa trong các phiên bản sau. Mã của bạn biên dịch trong XE7 ví dụ. Khá có thể nó sẽ biên dịch trong XE5 hoặc XE6, nhưng tôi không có chúng ngay lập tức để tay để kiểm tra.