1つの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; 

これはエラー「このオペランドのタイプに適用できない演算子」を生成します。

function CreateIfForm(const nClass: TFormClass): TForm; 

と型チェックとキャストの必要性をバイパス：私は

Answer 1

まずデルファイ7を使用してい あなたが唯一のフォームクラスを受け入れるように機能を変更することができるか調べなければなりません。

これは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;