如何判断一个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;