¿funcion que devuelva mas de 1 valor?

[[Delphius]]

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,

[roman]

Empezado por Delphius

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.

Pues yo esto sí que no le entiendo nada. ¿Qué tiene que ver lo que esxpones con regresar más de un valor? Porque, se entiende que la pregunta de JXJ se refiere a más de un valor en una sóla llamada a la función. ¿O te refieres a que los múltiples valores serían la constante (un valor) y la otra parte (el otro valor)? Pero esto sería un poco bobo, así que no creo que sea eso.

Empezado por Delphius

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.

No quisiera polemizar pero me parece que ésta es una ofensa gratuita.

// Saludos

[Casimiro Notevi]

A veces (más veces de las que quisiera) yo también cometo errores gordos de novato, y otras veces son cosas simples que se supone que lo sabe cualquiera y resulta que no lo sabía, en fin, que todos los día se aprende algo, aunque sea tan simple como las vocales***


*** Una vez me preguntaron ¿cuáles son las vocales?, y me quedé con la mente totalmente en blanco, al final contesté un tímido "uuummm... pues no sé, no recuerdo"
La persona que me preguntó se dirigió al público y dijo algo así como: "y aquí tenemos un caso claro de la incultura, el analfabetismo que nos rodea en todos los aspectos de la vida y hacen que esta sociedad sea tan retrógrada, paleta y casposa".
No me levanté para darle una patada donde más duele porque entonces habría añadido: "un caso claro de la bestialidad, salvajismo, brutalidad de la sociedad actual", así que me contuve, agaché la cabeza y esperé al final para salir escondido entre las sombras.


Edito: cuando salí a la calle me dije: "¿las vocales?, qué pregunta más tonta, a,e,i,o,u ¡en qué estaba yo pensando!"

[JXJ]

yo en estos casos usaba un procedure

y variables globales. para hacerlo mas facil. con las prisas de entregar
proyecto en horas. pues. a codificar como loco, con que funcione..
y se entrege en los plazos que el cliente pide...


gracias muchachos por su atenta atencion.