Delphi XE: Konstruktor klasy nie zostanie wywołana w klasie przy użyciu rodzajowych

Question

Rozważmy następujący przykład (używam 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. 

Klasa constructur nigdy nie nazywa, a więc linia „klasa utworzona "nie jest drukowane. Jeśli jednak usuwam uogólnienie i zmienię TTestClass<T> na standardową klasę TTestClass, wszystko działa zgodnie z oczekiwaniami.

Czy brakuje mi czegoś z lekami generycznymi? Lub po prostu nie działa?

Wszelkie przemyślenia na ten temat zostaną zatrzymane!

Dzięki, --Stefan--

Answer 1

Wygląda jak błąd kompilatora. Ten sam kod działa, jeśli przeniesiesz deklarację i implementację TTestClass do oddzielnej jednostki.

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

Mogę potwierdzić, że jest to błąd. Jeśli jedyną instancją klasy jest plik .dpr, wówczas konstruktor klasy nie działa. Jeśli utworzysz inną jednostkę, tj. Oddzielny plik .pas i utworzysz stamtąd TTestClass<Integer>, wtedy twój konstruktor klas zostanie uruchomiony.

Przesłałem QC#103798.