Bir TClass'ın bir diğerinden türetilmiş olduğunu nasıl anlarım?

Question

Böyle bir şey yapmaya çalışıyorum:

Bu hatayı üretir

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; 

"Bu işlenen türü için geçerli değil Operatör". Senin sadece bir form sınıfı kabul etmek işlevini değiştirebilir olmadığını kontrol etmelidir

Answer 1

Birinci Delphi 7. kullanıyorum:

function CreateIfForm(const nClass: TFormClass): TForm; 

ve tip kontrolü ve döküm ihtiyacını atlar. Bu çekilse değilse

, sen InheritsFrom kullanabilirsiniz:

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;