A ver...
La propuesta de Ñuño es equivalente a una función con un parámetro por referencia. Es decir que un parámetro este precedido por la cláusula var de modo tal que se permita la modificación de dicho valor por parte de la función.
Es decir algo como:
Código Delphi
[-]function Nombre(Param1: integer; var Param2: integer): integer;
begin
result := ...
Param2 := ...
end;
Cuando se pasa un parámetro por refencia, se permite que dentro del código se altere su valor por lo que al final de la función es posible que el valor sea diferente. Esta es una de las maneras en como una función puede devolver más de un resultado:
1) El resultado propiamente de la función:
Código Delphi
[-]
res2 := 5;
res := Nombre(10,res2);
2) El 2do resultado que queda almacenado en el 2do parámetro (para el ejemplo en la variable res2 y ya no necesariamente el valor será 5 como inicialmente por tanto hay que comprobar su valor:
Código Delphi
[-]if res2 <> 5
then ShowMessage('res2 ha cambiado por ' + IntToStr(res2));
Si hay más por regresar se pueden disponer de tantos parámetros "vars" como se requieran:
Código Delphi
[-]function Nombre(P1: integer; var P2, P3, .... PN: integer): integer;
Pero en lo posible hay que evitar esta técnica.
Como dije al comienzo de mi anterior mensaje, si el resultado de la función siempre será parecido a algo como:
Código Delphi
[-]resultadoFinal = resultado_constante + resultado_variable
Y siempre que resultado_constante sea un valor fijo y resultado_variable sea variable o que asuma el valor dependiendo del caso.
Entonces, si... la función puede regresar diferentes valores y sin necesidad de requerir añadir parámetros por referencias.
En este escenario ya pasa por el cliente de la función (en donde se la utilizará) el llevar el adecuado control de los resultados. Y esto se puede hacer fácilmente con el uso de constantes.
La segunda alternativa para regresar múltiples resultados es utilizando registros, y hacer que la función regrese uno:
Código Delphi
[-]
type
TResultados = record
Res1, Res2, Res3, ...., ResN: integer;
end;
function Nombre(Param1: integer): TResultados;
Pero como he dicho, en lo posible debe evitarse estos tipos de funciones ya que lleva a un acomplamiento empaquetado y condiciona a tanto la función como al cliente a tener un mayor acomplamiento y un cambio en la función llevará a un cambio en el cliente, y vaya a saber donde más.
Si no se entiende eso, entonces me pregunto de que otra manera debo explicarlo porque es de lo más simple y elemental. Me extraña que alguien que ya lleva más de 2000 mensajes y un buen tiempo en los foros no logre entender lo que he dicho anteriormente. Sabiendo que tu JXJ supuestamente eres un profesional, y que a la teoría y los conceptos de acoplamiento y cohesión te son más que estudiados ya que es una de las primeras cosas que se enseñan en la carrera.
Saludos,