Cómo devolver múltiples valores de una función Delphi

Una construcción más común en un Delphi la aplicación sería una procedimiento o una función. Conocidos como rutinas, procedimientos o funciones, son bloques de instrucciones que llama desde diferentes ubicaciones en un programa.

En pocas palabras, un procedimiento es una rutina que no devuelve un valor, mientras que una función devuelve un valor.

El valor de retorno de una función se define por el tipo de retorno. En la mayoría de los casos, escribiría una función para devolver un solo valor eso sería un número entero, cadena, booleano o algún otro tipo simple, también los tipos de retorno podrían ser una matriz, una lista de cadenas, una instancia de un objeto personalizado o similar.

Tenga en cuenta que incluso si su función devuelve una lista de cadenas (una colección de instrumentos de cuerda) aún devuelve un valor único: una instancia de la lista de cadenas.

Además, las rutinas de Delphi pueden tener muchas caras: rutina, método, puntero de método, delegado de eventos, método anónimo ...

La primera respuesta que viene a la mente es no, simplemente porque cuando pensamos en una función, pensamos en un solo valor de retorno.

Ciertamente, la respuesta a la pregunta anterior es, sin embargo, sí. Una función puede devolver varios valores. A ver cómo.

¿Cuántos valores puede devolver la siguiente función, uno o dos?

función Positivo Recíproco (const valueIn: entero; var valueOut: real): boolean;

La función obviamente devuelve un valor booleano (verdadero o falso). ¿Qué tal el segundo parámetro "valueOut" declarado como un parámetro "VAR" (variable)?

Parámetros var son pasados ​​a la función por referencia lo que significa que si la función cambia el valor del parámetro, una variable en el bloque de código que llama, la función cambiará el valor de la variable utilizada para el parámetro.

Para ver cómo funciona lo anterior, aquí está la implementación:

función Positivo Recíproco (const valueIn: entero; var valueOut: real): boolean;

empezar

 resultado: = valueIn> 0;

Si resultado luego valueOut: = 1 / valueIn;

final;

El "valueIn" se pasa como un parámetro constante: la función no puede alterarlo y se trata como de solo lectura.

Si "valueIn" o mayor que cero, al parámetro "valueOut" se le asigna el valor recíproco de "valueIn" y el resultado de la función es verdadero. Si valueIn es <= 0, la función devuelve false y "valueOut" no se modifica de ninguna manera.

Aquí está el uso:

var

 b: booleano;

 r: real;

empezar

 r: = 5;

 b: = positivo recíproco (1, r);

 //here:

 // b = verdadero (ya que 1> = 0)

 // r = 0.2 (1/5)

 r: = 5;

 b: = Positivo Recíproco (-1, r);

 //here:

 // b = falso (desde -1 

final;

Por lo tanto, ¡PositiveReciprocal en realidad puede "devolver" 2 valores! Al usar los parámetros var, puede hacer que una rutina devuelva más de un valor.

Hay otra forma de especificar un parámetro por referencia, utilizando la palabra clave "out", como en:

función PositiveReciprocalOut (const valueIn: entero; fuera valueOut: real): boolean;

empezar

 resultado: = valueIn> 0;

Si resultado luego valueOut: = 1 / valueIn;

final;

La implementación de PositiveReciprocalOut es la misma que en PositiveReciprocal, solo hay una diferencia: el "valueOut" es un parámetro OUT.

Con los parámetros declarados como "out", el valor inicial de la variable referenciada "valueOut" se descarta.

Aquí está el uso y los resultados:

var

 b: booleano;

 r: real;

empezar

 r: = 5;

 b: = PositiveReciprocalOut (1, r);

 //here:

 // b = verdadero (ya que 1> = 0)

 // r = 0.2 (1/5)

 r: = 5;

 b: = PositiveReciprocalOut (-1, r);

 //here:

 // b = falso (desde -1 

final;

Observe cómo en la segunda llamada el valor de la variable local "r" se establece en "0". El valor de "r" se estableció en 5 antes de la llamada a la función pero desde que el parámetro se declaró como "out", cuando "r" alcanzó la función, el valor se descartó y el valor "vacío" predeterminado se configuró para el parámetro (0 para real tipo).

Como resultado, puede enviar de forma segura variables no inicializadas para los parámetros, algo que no debe hacer con los parámetros "var". Los parámetros se usan para enviar algo a la rutina, excepto aquí con los parámetros "fuera" :), y por lo tanto las variables no inicializadas (utilizadas para los parámetros VAR) podrían tener valores extraños.

Las implementaciones anteriores donde una función devolvería más de un valor no son buenas. La función en realidad devuelve un solo valor, pero también devuelve, mejor decir altera, los valores de los parámetros var / out.

Debido a esto, es muy raro que desee utilizar parámetros por referencia. Si se requieren más resultados de una función, puede hacer que una función devuelva un tipo de registro variable.

Considera lo siguiente:

tipo

 TLatitudeLongitude = grabar

 Latitud: real;

 Longitud: real;

final;

y una función hipotética:

función Dónde estoy(const nombre del pueblo: cuerda): TLatitudeLongitude;

La función WhereAmI devolvería el Latitud y longitud para un pueblo determinado (ciudad, área, ...).

La implementación sería:

función Dónde estoy(const nombre del pueblo: cuerda): TLatitudeLongitude;

empezar// usa algún servicio para localizar "townName", luego asigna el resultado de la función:

 resultado. Latitud: = 45,54;

 resultado. Longitud: = 18,71;

final;

Y aquí tenemos una función que devuelve 2 valores reales. Ok, devuelve 1 registro, pero este registro tiene 2 campos. Tenga en cuenta que puede tener un registro muy complejo que mezcla varios tipos para ser devueltos como resultado de una función.

Eso es. Por lo tanto, sí, las funciones de Delphi pueden devolver múltiples valores.