programacion - Delphi XE: el constructor de clases no se llama en una clase usando genéricos

visibilidad en java definicion

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.

La construcción de clase nunca se llama y, por lo tanto, la línea ''clase creada'' no se imprime. Sin embargo, si TTestClass<T> la generalización y hago TTestClass<T> en una clase estándar TTestClass , todo funciona como se espera.

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

¡Cualquier idea sobre esto sería aprehendida!

Gracias, -Stefan--

Answer 1

Parece un error de compilación. 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 esto 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 TTestClass<Integer> una instancia de TTestClass<Integer> desde allí, se ejecutará el constructor de su clase.

He enviado QC # 103798 .