如何在Delphi过程中将类引用（元类）作为参数传入

结论 #

该需求完全可以实现，你可以通过传递基类的类引用作为参数，实现跨不同继承体系的通用动态实例化逻辑。

实现方案 #

1. 非泛型实现（兼容老版本Delphi） #

首先声明通用的基类引用类型，再调整Conjure过程的参数定义：

type
  // 所有业务继承体系的基类都是TPersistent，因此声明通用类引用
  TBasePersistentClass = class of TPersistent;

// 过程声明：传入类名 + 对应继承体系的基类引用，返回创建好的实例
function Conjure(const ClassName: string; BaseClass: TBasePersistentClass): TPersistent;

过程实现逻辑示例：

function Conjure(const ClassName: string; BaseClass: TBasePersistentClass): TPersistent;
var
  TargetClass: TPersistentClass;
begin
  Result := nil;
  // 根据类名查找已注册的类引用
  TargetClass := TPersistentClass(FindClass(ClassName));
  // 校验目标类是否属于传入的基类继承体系，避免跨体系创建错误
  if not TargetClass.InheritsFrom(BaseClass) then
    raise Exception.CreateFmt('类%s不属于%s继承体系', [ClassName, BaseClass.ClassName]);
  // 调用虚构造函数，会自动调度到子类的重写实现
  Result := BaseClass(TargetClass).Create;
end;

调用示例：

var
  FooInst: TFoo;
  BobodoInst: TBobodo;
begin
  // 创建TFoo体系的子类实例
  FooInst := TFoo(Conjure('TFoo2', TFooClass));
  // 创建TBobodo体系的子类实例
  BobodoInst := TBobodo(Conjure('TBobodo2', TBobodoClass));
end;

2. 泛型实现（更类型安全，推荐Delphi XE及以上版本使用） #

泛型版本可以在编译期完成类型校验，避免手动强转的类型错误：

type
  TConjureUtils = class
  public
    // 泛型约束：必须继承自TPersistent，且有构造函数
    class function CreateInstance<T: TPersistent, constructor>(const ClassName: string): T; static;
  end;

实现逻辑：

class function TConjureUtils.CreateInstance<T>(const ClassName: string): T;
var
  BaseClass: TPersistentClass;
  TargetClass: TPersistentClass;
begin
  Result := nil;
  BaseClass := TPersistentClass(T);
  TargetClass := TPersistentClass(FindClass(ClassName));
  if not TargetClass.InheritsFrom(BaseClass) then
    raise Exception.CreateFmt('类%s不属于%s继承体系', [ClassName, BaseClass.ClassName]);
  Result := T(BaseClass(TargetClass).Create);
end;

调用示例：

var
  FooInst: TFoo;
  BobodoInst: TBobodo;
begin
  FooInst := TConjureUtils.CreateInstance<TFoo>('TFoo2');
  BobodoInst := TConjureUtils.CreateInstance<TBobodo>('TBobodo2');
end;

注意事项 #

• 所有需要动态创建的类必须提前调用RegisterClass或RegisterClasses注册，否则FindClass会抛出类未找到异常
• 各个继承体系的基类（如TFoo、TBobodo）必须声明虚构造函数，且子类正确重写，否则构造调用只会执行基类逻辑
• 如果业务场景允许创建失败返回空，可以把异常逻辑替换为返回nil，根据你的需求调整即可

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