Puntero a función

[[Delphius]]

Hola Guillermo80,
¿Deseas traducir de Visual C++ a Delphi?

No se Visual C++ pero un puntero a función o procedimiento en Delphi es así:

Código Delphi [-]
type
  TMiFuncion = function MiFuncion(Algo: TAlgo): TAlgo;

var
  Funcion: TMiFuncion; //nuestra variable que apuntará a funciones del tipo TMiFuncion.

De modo que si tenemos una función cualquiera que cumpla con dicha descripción de tipos y argumentos podemos hacer cosas como esta:

Código Delphi [-]
funcion UnaFuncion(Algo: TAlgo): TAlgo;
begin
  // ... lo que venga aquí
  result := Algo; // es un ejemplo!
end;


begin
  // ....
  Funcion := UnaFunción;
  resultado := Funcion(AlgunaVariableOValor);
end;

No se si se entiende.

Saludos,