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;

[*Caro*]

Muy interesante pense que no se podia era algo que andaba buscando muchas gracias DEC

[DarKraZY]

¿Esto funciona? Lo siento por ser tan escéptico, además es que no tengo Delphi ahora a mano para probarlo.... pero ¿no se había dicho siempre que Delphi era un lenguaje compilado y por tanto éstas cosas no se podían hacer? ¿Estoy en lo cierto o me equivoco?

Gracias y un saludo.-

[dec]

Hola,

Empezado por DarKraZY

¿Esto funciona? Lo siento por ser tan escéptico, además es que no tengo Delphi ahora a mano para probarlo.... pero ¿no se había dicho siempre que Delphi era un lenguaje compilado y por tanto éstas cosas no se podían hacer? ¿Estoy en lo cierto o me equivoco?

Bueno. Sí que funciona. No estoy muy puesto en el tema, pero, se hace uso de lo que se conoce como "RTTI" (Runtime Type Information). Quiere decirse que hay cierta información a la que puede accederse en tiempo de ejecución, y, entre esta información, mejor dicho, a partir de ella, es posible ejecutar métodos, obtener y establecer el valor de propiedades, etc. En la página Web que se enlaza arriba hay más información al respecto. También en estos Foros se ha tratado a veces el tema.

[OscarG]

Perdonar por no agradeceros antes pero pensaba q lo había hecho ya.

El programa funciona, pero me falta pasarle parámetros. Seguiré investigando y si descubro algo, continuaré con este hilo para completarlo.

Vaya, es increible, pensaba q me ibais a insultar y resulta q existe y es posible jeje.

Muchas gracias.