Delphi 11中如何将类名字符串转换为TClass对象以获取祖先类？

你的核心问题是错误地尝试将字符串直接强制转换为TClass类型，Delphi需要通过类注册机制来根据类名字符串查找对应的类引用。以下是修正后的实现方案：

修正后的代码 #

procedure TForm1.DoShowAncestors(const aClassName: string);
var
  ClassRef: TClass;
begin
  lstAncestors.Clear;
  try
    // 通过FindClass从已注册类中查找类引用
    ClassRef := FindClass(aClassName);
    
    // 遍历并输出所有祖先类（含自身）
    while ClassRef <> nil do
    begin
      lstAncestors.Items.Add(ClassRef.ClassName);
      ClassRef := ClassRef.ClassParent;
    end;
  except
    on E: EClassNotFound do
      lstAncestors.Items.Add('错误：未找到类 "' + aClassName + '"');
  end;
end;

procedure TForm1.edtClassNameKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    DoShowAncestors(Trim(edtClassName.Text));
  end;
end;

关键说明 #

1. 类注册要求

   • VCL自带的标准类（如TForm、TButton、TObject等）已经自动注册，可以直接用FindClass查找。
   • 如果是你自定义的类，必须手动注册才能被找到，示例如下：

     unit MyCustomClass;
     
     interface
     type
       TMyCustomClass = class(TComponent);
     
     implementation
     initialization
       // 注册类
       RegisterClass(TMyCustomClass);
     finalization
       // 可选：程序退出时注销类
       UnregisterClass(TMyCustomClass);
     end.
     

2. 原始代码的错误点

   • TClass.Create：TClass是类引用类型，不能直接调用构造函数。
   • ClassRef.ClassName := aClassName：ClassName是只读属性，无法赋值修改。
   • TClass(aClassName).ClassType：字符串和TClass的内存结构完全不同，强制转换属于非法操作，这也是编译器报错的原因。

3. 异常处理

   • 加入try-except捕获EClassNotFound异常，避免用户输入无效类名时程序崩溃，同时给出明确提示。

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