Come posso sapere se un TClass è derivato da un altro?

Question

sto cercando di fare qualcosa di simile:

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; 

Questo produce errore "Operatore non applicabile a questo tipo di operando". Sto usando Delphi 7.

Answer 1

In primo luogo si dovrebbe verificare se è possibile modificare la funzione per accettare solo una classe form:

function CreateIfForm(const nClass: TFormClass): TForm; 

e bypassare la necessità di controllo di tipo e la colata.

Se questo non è posssible, è possibile utilizzare 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;