Como posso determinar se um método abstrato é implementado?
Estou usando uma biblioteca delphi de terceiros sem código fonte, esta biblioteca possui várias classes com métodos abstratos. Preciso determinar quando um método abtract é implementado por uma classe Descendant em tempo de execução para evitar oEAbstractError: Abstract Error
e mostra uma mensagem personalizada para o usuário ou use outra class
, por exemplo, neste código, quero verificar em tempo de execução se oMyAbstractMethod
é implementado
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;
omo posso determinar se um método abstrato é implementado em uma classe Descendente em tempo de execuçã