Учитывая код ниже, который является очень урезанной версией фактического кода, я получаю следующую ошибку:

[Ошибка DCC] Unit3.pas (31): E2010 Несовместимые типы: 'IXList <Unit3.TXList <T> .FindAll.S>' и 'TXList <Unit3.TXList <T> .FindAll.S>'

В функции FindAll <S>.

Я не могу понять, почему, поскольку нет проблем с предыдущей очень похожей функцией.

Кто-нибудь может пролить свет на это?
Это я или это ошибка в компиляторе?

блок Unit3;

interface
uses Generics.Collections;

type
  IXList<T> = interface
  end;

  TXList<T: class> = class(TList<T>, IXList<T>)
  protected
    FRefCount: Integer;
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  public
    function Find: IXList<T>;
    function FindAll<S>: IXList<S>;
  end;

implementation
uses Windows;

function TXList<T>.Find: IXList<T>;
begin
  Result := TXList<T>.Create;
end;

function TXList<T>.FindAll<S>: IXList<S>;
begin
  Result := TXList<S>.Create; // Error here  
end;

function TXList<T>.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  Result := E_NoInterface;
end;

function TXList<T>._AddRef: Integer;
begin
  InterlockedIncrement(FRefCount);
end;

function TXList<T>._Release: Integer;
begin
  InterlockedDecrement(FRefCount);
  if FRefCount = 0 then Self.Destroy;
end;

end.

Спасибо за ответы! Это похоже на ошибку компилятора с приемлемым обходным путем.

С интерфейсом, объявленным как

IXList<T: class> = interface
   function GetEnumerator: TList<T>.TEnumerator;
end;

и findall реализован как

function TXList<T>.FindAll<S>: IXList<S>;
var
  lst: TXList<S>;
  i: T;
begin
  lst := TXList<S>.Create;
  for i in Self do
    if i.InheritsFrom(S) then lst.Add(S(TObject(i)));

  Result := IXList<S>(IUnknown(lst));
end;

Я получил это на простом примере.

Делать что-то вроде:

var
  l: TXList<TAClass>;
  i: TASubclassOfTAClass;
begin
.
.
.
for i in l.FindAll<TASubclassOfTAClass> do
begin
   // Do something with i
end;