Convertir un String en un método.

[dec]

Hola,

No sé si el artículo "How to execute a method (procedure/function) by name", de Zarko Gajic podría servirte de algo. En todo caso copio a continuación el código para tenerlo disponible en caso necesario, puesto que me parece interesante además:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject) ;
    procedure CallMeByName(Sender: TObject) ;
  private
    procedure ExecMethod(OnObject: TObject; MethodName: string) ;
  end;

var
  Form1: TForm1;

type
  TExec = procedure of object;

procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ;
var
  Routine: TMethod;
  Exec: TExec;
begin
  Routine.Data := Pointer(OnObject) ;
  Routine.Code := OnObject.MethodAddress(MethodName) ;
  if NOT Assigned(Routine.Code) then Exit;
  Exec := TExec(Routine) ;
  Exec;
end;

procedure TForm1.CallMeByName(Sender: TObject) ;
begin
  ShowMessage('Hello Delphi!') ;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
  ExecMethod(Form1, 'CallMeByName') ;
end;