Ejecutar procedimiento sabiendo únicamente su nombre

[DarkDudae]

Buenas a todos:

Recientemente me he visto en la necesidad de tener que ejecutar procedimientos sabiendo únicamente su nombre. Tras no pocos quebraderos de cabeza, he encontrado con la solución.

Pocas veces nos veremos en la necesidad de usar algo así, pero cuando trabajas con formularios configurables/editables por el usuario y con componentes que pueden adoptar diferentes funciones (según las circunstancias y la configuración que elija el usuario) puede ser bastante útil.

Así pues, paso a describiros cómo lo he conseguido por si ayuda a alguien:

type
   TExec = procedure of object;

Así definimos un procedimiento de objeto.

procedure TForm1.EjecutarMetodo(EnObjeto: TObject; NombreMetodo: string) ;
var
   Rutina: TMethod;
   Exec: TExec;
begin
   Rutina.Data := Pointer(EnObjeto) ;
   Rutina.Code := EnObjeto.MethodAddress(NombreMetodo) ;
   if NOT Assigned(Rutina.Code) then Exit;
   Exec := TExec(Rutina) ;
   Exec;
end;

procedure TForm1.ProcedimientoCualquiera(Sender: TObject) ;
begin
   ShowMessage('Hola') ;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
   EjecutarMetodo(self, 'ProcedimientoCualquiera') ;
end;

Un saludo a todos

[marcoszorrilla]

Muchas gracias por el aporte.

Un Saludo.

[[gatosoft]]

Amigo DarkDudae, este es un muy buen aporte y creo que clasifica para que lo apuntes en la sección de Trucos del Club.

http://www.clubdelphi.com/trucos/

Y de nuevo, muchas gracias por tu aporte, en el pasado me hubiera gustado mucho encontrarme con un hilo con esta solución....por ahora voy a incluirlo en mi biblioteca de utilidades...

Un saludo,

[[gatosoft]]

Bueno, ahora buscando, ya "coso" habia posteado un truco similar...

http://www.clubdelphi.com/trucos/ind...=176&scrollb=0

[DarkDudae]

Empezado por gatosoft

Bueno, ahora buscando, ya "coso" habia posteado un truco similar...

http://www.clubdelphi.com/trucos/ind...=176&scrollb=0

Gracias por la info gatosoft.... ¡qué lastima no haber encontrado ese truco antes!