Funciones que regresan valor

[zvf]

Quiero saber como se hace para que una funcion regrese un valor, y si es posible regresar mas de un valor en una funcion, dentro de la misma unit y como hacerlo cuando la funcion esta dentro de otra unit.

Por ejemplo la mando llamar:

Código Delphi [-]
  haz_algo (a,b);

y la funcion esta asi:

Código Delphi [-]
  procedure haz_algo (var1 : integer; var2: string) ;
  begin
    //aqui quiero que se regrese un valor
 end;

Y saber si es verdad que toma la variable a, dentro de la funcion con el nombre de var1 y la variable b con el nombre var2.

GRACIAS!

[dec]

Hola,

Vayamos por partes, como dijo Jack el destripador.

Lo que tú señalas como función es un procedimiento, y, la diferencia entre uno y otra, es que la función devuelve un valor, naturalmente, y el procedimiento no necesariamente.

El siguiente código puede que dé alguna pequeña idea.

Código Delphi [-]
{ Requiere dos parámetros integer; devuelve
  el resultado de sumar estos dos parámetros.
}
function Suma(a, b: integer) : integer;
begin
  Result := a + b;
end;

{ Requiere dos parámetros integer (que se pasan
  por referencia); devuelve el resulado de mul-
  tiplicar estos dos parámetros; también cambia
  el valor las variables de ambos parámetros:
  puede considerarse otra forma de devolver un
  valor, además del resultado de la función.
}
function Multiplica(var a, b: integer) : integer;
begin
  Result := a * b;
  a := 1;
  b := 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c: integer; // Para las pruebas

begin

  a := 5; // Inicializamos a 5 la variable A
  b := 5; // Lo mismo hacemos con la variable B

  c := Suma(a, b); // C vale ahora 10

  // Aquí mostramos el valor de A, B y C
  ShowMessage(Format('A vale: %d; B vale %d; C vale %d', [a, b, c]));

  c := Multiplica(a, b); // C vale ahora 25

  { Pero como pasamos por referencia las variables
    A y B, y la función Multiplica modificó su valor,
    lo siguiente mostrará que A vale 1, B también
    y C vale 25, como es de esperar. }

  ShowMessage(Format('A vale: %d; B vale %d; C vale %d', [a, b, c]));

end;

Si te fijas se trata de utilizar dos funciones "Suma" y "Multiplica". Ambas reciben dos parámetros de tipo integer y devuelven la suma de estos, una, y el producto de su multiplicación, otra.

La segunda, además, recibe los parámetros por referencia (la palabra reservada "var" se encarga de hacérselo saber así al compilador), y, de este modo, si dentro de la función se cambia el valor de dichos parámetros/variables, estos cambios se reflejarán en las variables que se pasaron como parámetro.

En el código se ve mejor: a la función "Multiplica" se le pasan dos variables con un valor "5", pero, en su interior se establece el valor de ambas a "1", y este es, efectivamente, el valor que tendrán luego de llamar a la función "Multiplica". No ocurre así en la función "Suma". No se modifica el valor de los parámetros en este caso, pero, aunque así fuera, los cambios de estos solamente estarían disponibles en el interior de la función, porque los parámetros se pasan por valor, no por referencia.

No sé... no sé si te he liado más o qué. Ya dirás algo sobre todo este rollo que he soltado y veríamos cómo seguir adelante.

PD. Una cosa más. Nota que la función "Multiplica", al recibir las variables/parámetros por referencia, puede decirse que devuelve más de un resultado, puesto que en la función, además del resultado, podemos ofrecer resultados en las variables que se pasan como rerefencias, o nosotros podemos tomarnos eso como resultados.

Así tengo entendido que un procedimiento puede devolver un valor, aunque no como una función. Si a un procedimiento se le pasan parámetros por referencia, en cierto modo, a la que modifique dichos parámetros/variables, podemos decir que nos está devolviendo un favor... digo un valor o más de uno.