如何判斷一個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;