如何判断一个 TClass 是否派生自另一个？

Question

我正在尝试做这样的事情：

function CreateIfForm ( const nClass : TClass ) : TForm;
begin
  if not ( nClass is TFormClass ) then
    raise Exception.Create( 'Not a form class' );
  Result := ( nClass as TFormClass ).Create( Application );
end;

这会产生错误“运算符不适用于此操作数类型”。 我正在使用 Delphi 7。

Answer 1

首先您应该检查是否可以将函数更改为仅接受表单类：

function CreateIfForm(const nClass: TFormClass): TForm;

并绕过类型检查和强制转换的需要。

如果这不可能，您可以使用InheritsFrom：

function CreateIfForm(const nClass: TClass): TForm;
begin
  if not nClass.InheritsFrom(TForm) then
    raise Exception.Create('Not a form class');
  Result := TFormClass(nClass).Create(Application);
end;