如何从 Delphi 6 对象获取类以分配给元类变量？

Question

我有一个 Delphi 6 元类变量，它为设计时服务器组件的组件属性提供服务：

type
  TClientClass = class of TClient;
...
FClientClass: class of TClientClass;
FClientObj: TClient;

我有另一个设计时组件，它是客户端组件。在设计时，我通过 IDE 的属性编辑器使用服务器的“客户端”属性将客户端组件的具体实例分配给服务器组件，并将其拖放到同一表单上。但是，我还想将 FClientClass 变量分配给我通过“client”属性分配给 FClientObj 的具体组件的基础类。这样服务器组件就可以在运行时使用 FClientClass.Create 创建客户端组件的新实例。

当我通过服务器组件的属性设置器设置 FClientObj 数据成员时，我无法弄清楚如何将“客户端”对象的基础类分配给 FClientClass 数据成员：

procedure setClientClass(theClient: TClient);
begin
    // Assign the "client" property.  This works.
    FClientObj := theClient;

    // Assign the class of the "client" object to the Metaclass variable.
    // THIS DOESN'T WORK: incompatible types error from the compiler.
    FClientClass := theClient;
end;

我很确定问题是我正在尝试将 TClient 的对象分配给 TClient 变量的元类。我只是不知道进行分配的正确语法。我不想只是这样做：

FClientClass := TClient;

因为我想允许将来分配可能是 TClient 后代的具体组件。

正确执行赋值的语法是什么？我希望它比使用 RTTI 库做一些复杂的事情更简单，就像Malte在这个线程中的回复所示：

如何从类引用创建 Delphi 对象并确保构造函数执行？

Answer 1

我相信您正在寻找 TObject.ClassType。像这样使用它：

procedure setClientClass(theClient: TClient);
begin
  FClientObj := theClient;
  FClientClass := TClientClass(theClient.ClassType);
end;

注释1：我假设您的意思是FClientClass：TClientClass而不是FClientClass：TClientClass的类。

注2：我只是在脑子里编了这个；我希望它可以在真正的编译器上运行。