Delphi XE: constructor de la clase no se consiga llamar en una clase utilizando los genéricos

Question

Considere el siguiente ejemplo (estoy usando 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. 

El constructur clase nunca es llamado y 'clase de ahí la línea creada 'no está impreso. Sin embargo, si elimino la generalización y hago TTestClass<T> en una clase estándar TTestClass, todo funciona como se esperaba.

¿Me estoy perdiendo algo con genéricos? O simplemente no funciona?

¡Cualquier idea sobre esto sería aprehendida!

Gracias, --Stefan--

Answer 1

se parece a un error del compilador. El mismo código funciona si mueve la declaración e implementación de TTestClass a una unidad separada.

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

Puedo confirmar que este es un error. Si la única instanciación de la clase está en el archivo .dpr, entonces el constructor de la clase no se ejecuta. Si crea otra unidad, es decir, un archivo .pas separado, y crea una instancia de TTestClass<Integer> desde allí, se ejecutará su constructor de clase.

He enviado QC#103798.