Delphi：能否将对象转为接口？如何无依赖实例化接口实现类？

问题背景 #

尝试通过TClass创建实现IEntity接口的实例时遇到两个错误：

• 使用(EntityClass.Create as IEntity)时提示“Operator not applicable to this operand type”
• 声明TEntityClass = class of IEntity时提示“Class type required”
  需求是不引入接口实现类的依赖，创建并调用IEntity接口的新实例。

可行解决方案 #

1. 修复类型转换逻辑 #

原代码中EntityClass.Create返回TObject，直接用as转换接口会触发错误。改用Supports函数完成类型转换，同时确保接口正确获取：

procedure OpenNewEntity(EntityClass: TClass);
var
  EntityObj: TObject;
  EntityIntf: IEntity;
begin
  if not Supports(EntityClass, IEntity) then
    raise Exception.Create(EntityClass.ClassName + ' is not an Entity');

  EntityObj := EntityClass.Create;
  try
    if not Supports(EntityObj, IEntity, EntityIntf) then
      raise Exception.Create('Failed to get IEntity interface from ' + EntityClass.ClassName);
    EntityIntf.Open;
  finally
    // 接口引用计数归零后对象会自动释放，无需手动调用Free
  end;
end;

2. 用抽象基类实现类型安全的类引用 #

不能直接声明接口的类引用，可创建一个抽象基类统一实现IEntity，再基于这个基类定义类引用：

// 在公共单元中定义
type
  TEntityBase = class(TInterfacedObject, IEntity)
  public
    procedure Open; virtual; abstract; // 抽象方法由子类实现
  end;

  TEntityClass = class of TEntityBase;

调用时直接使用TEntityClass类型参数，既避免依赖具体实现类，又保证类型安全：

procedure OpenNewEntity(EntityClass: TEntityClass);
var
  Entity: IEntity;
begin
  Entity := EntityClass.Create as IEntity;
  Entity.Open;
end;

3. RTTI方式（无基类依赖） #

如果不想引入抽象基类，可通过RTTI创建实例并获取接口（需启用RTTI支持）：

uses
  Rtti;

procedure OpenNewEntity(EntityClass: TClass);
var
  Context: TRttiContext;
  TypeInfo: TRttiType;
  CtorMethod: TRttiMethod;
  EntityObj: TObject;
  EntityIntf: IEntity;
begin
  if not Supports(EntityClass, IEntity) then
    raise Exception.Create(EntityClass.ClassName + ' is not an Entity');

  Context := TRttiContext.Create;
  try
    TypeInfo := Context.GetType(EntityClass);
    CtorMethod := TypeInfo.GetMethod('Create');
    if not Assigned(CtorMethod) then
      raise Exception.Create(EntityClass.ClassName + ' has no parameterless constructor');

    EntityObj := CtorMethod.Invoke(EntityClass, []).AsObject;
    try
      if not Supports(EntityObj, IEntity, EntityIntf) then
        raise Exception.Create('Failed to retrieve IEntity interface');
      EntityIntf.Open;
    finally
      // 接口自动管理对象生命周期，无需手动释放
    end;
  finally
    Context.Free;
  end;
end;

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