Ver Mensaje Individual
  #1  
Antiguo 03-01-2016
Reasen Reasen is offline
Miembro
NULL
 
Registrado: dic 2015
Ubicación: Barcelona
Posts: 140
Reputación: 11
Reasen Va por buen camino
Llamar funciones dinamicamente.. desde strings?

Hola!
Actualmente necesito una manera de poder llamar las funciones desde string para ahorrar mucho codigo,
la verdad nose si esto es posible ya que al compilar desapecen los nombres de las funciones, etc.,
alguna manera parecida también serviría como por ejemplo saber el address de la función y llamarlo desde ahí,
espero que alguien pueda ayudarme en este complicado tema.


Este código actualmente funciona para poner un ejemplo:


Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}
  uses windows,SysUtils;

type
  TNodeFunction = function(AInput: String): String;



function Func1(AInput: String): String;
begin
   result := AInput;
end;

function Func2(AInput: String): String;
begin
   result := 'Hola!';
end;

function Func3(AInput: String): String;
begin
   result := UpperCase(AInput);
end;


var
  SomeFunc: TNodeFunction;
begin

     SomeFunc := Func2;

    MessageBox(0,PChar(SomeFunc('Nada')),'',0) ;   // devuelve 'Hola!'

end.
Responder Con Cita