Funciones por parametros...
 

Si estoy haciendo un metodo de un objeto y quiero que este reciba una funcion por parametro, pero si la declacion es:

TFunctionParametro = Funcion(Parametros):TipoSalida;

Si quiero meter un metodo de un objeto no puedo, pero si mi declaracion es:

TFunctionParametro = Funcion(Parametros):TipoSalida of object;

Si puedo meter un metodo de un objeto, pero no me deja meter una funcion normal.

:confused: Como puedo hacer para hacer una declaracion de con la que pueda meter ambos casos.

Que yo sepa no se puede, tienes que cambiar los nombres:

Código Delphi [-]

TCompareProc = function (....):TipoSalida;
TCompareMethod = function (....):TipoSalida of Object;

// Y ahora haces un Overload del método que lo use:

Tmio = Class(tobject)

public 
  procedure Compara(Funcion :TcompareProc);overload;
  procedure Compara(Funcion :TcompareMethod);overload;
end;

Aunque la implementación del método "Compara" es la misma, tienes que duplicarla.

Saludos

Gracias...
 

Gracias por la solucion, si me funciono y realmente fue muy ingeniosa...

Saludos