DelphiXE3 и недействительный родовая напечатанный

Question

Delphi2010 компилирует мой класс TObjectListEnumerator без ошибок, но DelphiXE3 дает ошибку компилятора: E2089: Invalid типаж

Что не так с этим?

TObjectListEnumerator<T> = class 
     private 
     fList  : TObjectList; 
     fIndex : integer; 
     fMaxIndex : integer; 
     function GetCurrent : T; 
     public 
     constructor Create(List: TObjectList); 
     function MoveNext : Boolean; 
     property Current : T read GetCurrent; 
     end; 

    constructor TObjectListEnumerator<T>.Create(List: TObjectList); 
    begin 
     inherited Create; 
     fList  := List; 
     fIndex := -1; 
     fMaxIndex := fList.Count-1; 
    end; 

    function TObjectListEnumerator<T>.MoveNext: Boolean; 
    begin 
     Inc(fIndex); 
     Result := not(fIndex > fMaxIndex); 
    end; 

    function TObjectListEnumerator<T>.GetCurrent: T; 
    begin 
     Result := T(fList[fIndex]); // <-- E2089: Invalid typecast 
    end; 

Answer 1

As the documentation states: свойство Items из Contnrs.TObjectList имеет тип TObject:

property Items[Index: Integer]: TObject read GetItem write SetItem; default; 

С другой стороны, параметр типа T ничем не ограничена и может быть любого типа, например, тип значения, как Integer ,

Если добавить generic type constraint, код должен составить:

TObjectListEnumerator<T: TObject> = class