Come posso determinare se un metodo astratto è implementato?

Question

Sto usando una libreria di terze parti delphi di grandi dimensioni senza codice sorgente, questa libreria ha diverse classi con metodi astratti. Ho bisogno di determinare quando un metodo di abtract è implementato da una classe Descendant in runtime per evitare lo EAbstractError: Abstract Error e mostra un messaggio personalizzato all'utente o usa invece un'altra classe.

ad esempio in questo codice Voglio verificare in runtime se è implementato lo MyAbstractMethod.

type 
    TMyBaseClass = class 
    public 
    procedure MyAbstractMethod; virtual; abstract; 
    end; 

    TDescendantBase = class(TMyBaseClass) 
    public 
    end; 

    TChild = class(TDescendantBase) 
    public 
    procedure MyAbstractMethod; override; 
    end; 

    TChild2 = class(TDescendantBase) 
    end; 

Come è possibile determinare se un metodo astratto è implementato in una classe Descendant in runtime?

Answer 1

è possibile utilizzare Rtti, la funzione GetDeclaredMethods ottiene un elenco di tutti i metodi dichiarati nel tipo riflesso (corrente). Quindi puoi verificare se il metodo è presente nella lista restituita da questa funzione.

function MethodIsImplemented(const AClass:TClass;MethodName : string): Boolean; 
var 
    m : TRttiMethod; 
begin 
    Result := False; 
    for m in TRttiContext.Create.GetType(AClass.ClassInfo).GetDeclaredMethods do 
    begin 
    Result := CompareText(m.Name, MethodName)=0; 
    if Result then 
    break; 
    end; 
end; 

o è possibile confrontare la proprietà Parent.Name del TRttiMethod e verificare se match con il nome della classe corrente.

function MethodIsImplemented(const AClass:TClass;MethodName : string): Boolean; 
var 
    m : TRttiMethod; 
begin 
    Result := False; 
    m:=TRttiContext.Create.GetType(AClass.ClassInfo).GetMethod(MethodName); 
    if m<>nil then 
    Result:=CompareText(AClass.ClassName,m.Parent.Name)=0; 
end; 

Answer 2

Guardate l'attuazione del metodo TStream.Seek() nel codice sorgente VCL. Esegue un tipo simile di controllo overriden discendente come si sta cercando, e non comporta ricerche TRttiContext per farlo, solo un semplice ciclo attraverso le sue voci vtable padre/figlio.

Answer 3

function ImplementsAbstractMethod(AObj: TMyBaseClass): Boolean; 
type 
    TAbstractMethod = procedure of object; 
var 
    BaseClass: TClass; 
    BaseImpl, Impl: TAbstractMethod; 
begin 
    BaseClass := TMyBaseClass; 
    BaseImpl := TMyBaseClass(@BaseClass).MyAbstractMethod; 
    Impl := AObj.MyAbstractMethod; 
    Result := TMethod(Impl).Code <> TMethod(BaseImpl).Code; 
end;