Delphi中如何通过泛型实现不同接口列表转TList<IInterface>？

为什么直接TList<IOtherInterface> as TList<IInterface>失败？ #

Delphi的泛型集合（如TList<T>）是不变类型——即使IOtherInterface继承自IInterface，TList<IOtherInterface>和TList<IInterface>之间也不存在继承关系，因此无法通过as直接强制转换。

原代码编译错误原因 #

你编写的泛型类约束存在逻辑偏差：T:IEnumerable<IInterface>要求输入集合必须是枚举IInterface的类型，但实际你要处理的是枚举子接口（如IOtherInterface）的集合。同时循环中用泛型参数I接收枚举元素时，编译器无法正确推断类型关联，最终触发E2010类型不兼容错误。

可行的泛型实现方案 #

方案1：调整泛型转换类 #

修改泛型约束，让输入集合支持枚举任意继承自IInterface的子接口，利用接口的赋值兼容性完成转换：

interface
type
  TInterfaceList = class(TList<IInterface>)
  end;

  // T是枚举I类型的集合，I必须继承自IInterface
  TInterfaceListConverter<T:IEnumerable<I>, I:IInterface> = class
  public
    function Convert(const AFrom: T): TInterfaceList;
  end;

implementation

function TInterfaceListConverter<T, I>.Convert(const AFrom: T): TInterfaceList;
var
  Item: I;
begin
  Result := TInterfaceList.Create;
  for Item in AFrom do
    Result.Add(Item); // I继承自IInterface，可直接赋值无需强制转换
end;

方案2：简化为泛型函数 #

无需定义转换类，直接用独立泛型函数实现转换，代码更轻便：

function ConvertToInterfaceList<T:IInterface>(const AFrom: IEnumerable<T>): TList<IInterface>;
var
  Item: T;
begin
  Result := TList<IInterface>.Create;
  for Item in AFrom do
    Result.Add(Item);
end;

使用示例：

var
  OtherList: TList<IOtherInterface>;
  IntfList: TList<IInterface>;
begin
  OtherList := TList<IOtherInterface>.Create;
  // 填充OtherList数据...
  IntfList := ConvertToInterfaceList<IOtherInterface>(OtherList);
  try
    // 使用IntfList处理逻辑...
  finally
    IntfList.Free;
    OtherList.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者Mattia72