如何判断一个TClass是否是从另一个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; 

，并绕过类型检查和铸造的需要。

如果这不是posssible，您可以使用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;