Saber se o m�todo existe para um objeto!

Question

Bom Pessoal,Estou precisando testar se um m�todo existe para um objeto qualquer??Valew!!...

Cicerojr · Answer

Para melhorar um pouco ...Tem com eu passar um m�todo e um objeto como par�metro e depois conseguir executar .. se eh q eu me fiz entender!!...

Marcelo Saviski · Answer

[code:1:f298a1ec1f]if Objeto.MethodAddress(�nome m�todo�) <> nil then   //existe[/code:1:f298a1ec1f]o m�todo deve estar declarado na se��o published, ou ser um evento do formul�rio...

Cicerojr · Answer

Para passar o m�todo como par�metro?...

Marcelo Saviski · Answer

sim, mas ai vc teria que sabe o tipo dele para depois chamar, por exemplo

(...)
published
  procedure AlgumaCoisa(Parametro: Tipo);
(...)

type
  TMinhaProc = procedure(Parametro: Tipo);

var
  Metodo: Pointer;
begin
  Metodo := TMinhaProc(Objeto.MethodAddress(�AlgumaCoisa�);
  if Assigned(Metodo) then
    TMinhaProc(metodo)(Parametro);
end;

de mais detalhes do que que fazer que talvez de para arranjar uma solu��o melhor

F�rum Saber se o m�todo existe para um objeto! #260998