DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais

voltar

PARA QUEM GOSTA DE DELPHI

Executar Métodos de classe pelo nome e sem precisar dar uses da unit.

Oi amigos.

Está dica é mais avançada e também é um exemplo de uso da RTTI do Delphi.

Neste exemplo vamos executar um método de classe, sem declarar uses da unit onde está a classe e executar pelo nome do método.

Primeiramente vamos as explicações…

Passo 1
Para funcionar, a classe que detém o método deve ser descendente de TPersistent.

Exemplo:
TExemploClasse = class(TPersistent)
class function Teste(ANumber : Integer) : string;
end;

Passo 2
A Classe deve estar registrada

Exemplo:
initialization
RegisterClass(TExemploClasse);

Passo 3
Utilize esta função que criei para facilitar a vida

function ExecuteAwayMethod(ClassName, MethodName : string;
  MethosParams : array of TValue) : TValue;
var
  ctx     : TRttiContext;
  lType   : TRttiType;
  lMethod : TRttiMethod;
  vClass : TClass;
 
begin
  ctx := TRttiContext.Create;
  vClass := FindClass(ClassName);
 
  lType := ctx.GetType(vClass);
  Result := nil;
  try
    if Assigned(lType) then
      begin
       lMethod := lType.GetMethod(MethodName);
 
       if Assigned(lMethod) then
         Result := lMethod.Invoke(vClass, MethosParams);
      end;
  finally
    lMethod.Free;
    lType.Free;
    ctx.Free;
  end;
 
end;

Veja que aqui você informa o nome da classe, o nome do método e possíveis parâmetros do mesmo.
Inclusive é possível obter retorno de funções.

Para um melhor entendimento, abaixo tem o fonte na integra de exemplo.

unit Unit1;
 
interface
 
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, rtti, Vcl.StdCtrls;
 
type
{ Classe de exemplo, normalmente estará em outra unit }
TExemploClasse = class(TPersistent)
class function Teste(ANumber : Integer) : string;
end;
 
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
function ExecuteAwayMethod(ClassName, MethodName : string;
MethosParams : array of TValue) : TValue;
 
implementation
 
{$R *.dfm}
 
function ExecuteAwayMethod(ClassName, MethodName : string;
MethosParams : array of TValue) : TValue;
var
ctx     : TRttiContext;
lType   : TRttiType;
lMethod : TRttiMethod;
vClass : TClass;
 
begin
ctx := TRttiContext.Create;
vClass := FindClass(ClassName);
 
lType := ctx.GetType(vClass);
Result := nil;
try
if Assigned(lType) then
begin
lMethod := lType.GetMethod(MethodName);
 
if Assigned(lMethod) then
Result := lMethod.Invoke(vClass, MethosParams);
end;
finally
lMethod.Free;
lType.Free;
ctx.Free;
end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
vValue, vResult : TValue;
begin
vValue := 10;
 
vResult := ExecuteAwayMethod('TExemploClasse', 'Teste', vValue) ;
 
ShowMessage( vResult.AsString );
end;
 
{ TExemploClasse }
 
class function TExemploClasse.Teste(ANumber: Integer): string;
begin
Result := ANumber.ToString;
end;
 
{ Para uso deste exemplo, a classe precisa estar registrada }
initialization
RegisterClass(TExemploClasse);
 
end.