Delphi XE: constructor lớp không được gọi trong một lớp học sử dụng Generics

Question

Hãy xem xét ví dụ sau (Tôi đang sử dụng Delphi XE):

program Test; 

{$APPTYPE CONSOLE} 

type 
    TTestClass<T> = class 
    private 
    class constructor CreateClass(); 
    public 
    constructor Create(); 
    end; 

class constructor TTestClass<T>.CreateClass(); 
begin 
    // class constructor is not called. this line never gets executed! 
    Writeln('class created'); 
end; 

constructor TTestClass<T>.Create(); 
begin 
    // this line, of course, is printed 
    Writeln('instance created'); 
end; 

var 
    test: TTestClass<Integer>; 

begin 
    test := TTestClass<Integer>.Create(); 
    test.Free(); 
end. 

Các constructur lớp không bao giờ được gọi là và do đó dòng 'lớp tạo 'không được in. Tuy nhiên, nếu tôi xóa tổng quát và thực hiện TTestClass<T> thành một lớp tiêu chuẩn TTestClass, mọi thứ hoạt động như mong đợi.

Tôi có thiếu thứ gì đó với generics không? Hay đơn giản là nó không hoạt động?

Bất kỳ suy nghĩ nào về điều này sẽ được ứng dụng!

Xin cảm ơn, --Stefan--

Answer 1

Trông giống như lỗi trình biên dịch. Cùng một mã hoạt động nếu bạn di chuyển khai báo và triển khai TTestClass đến một đơn vị riêng biệt.

unit TestClass; 

interface 
type 
    TTestClass<T> = class 
    private 
    class constructor CreateClass(); 
    public 
    constructor Create(); 
    end; 

var 
    test: TTestClass<Integer>; 

implementation 

class constructor TTestClass<T>.CreateClass(); 
begin 
    Writeln('class created'); 
end; 

constructor TTestClass<T>.Create(); 
begin 
    Writeln('instance created'); 
end; 

end. 

Answer 2

Tôi có thể xác nhận đây là lỗi. Nếu instantiation duy nhất của class nằm trong file .dpr, thì class constructor sẽ không chạy. Nếu bạn tạo một đơn vị khác, tức là một tệp .pas riêng biệt và khởi tạo một TTestClass<Integer> từ đó, thì trình tạo lớp của bạn sẽ chạy.

Tôi đã gửi QC#103798.