Devolver 3 valores con la misma funcion

[compuin]

Hola foro,

Tengo una funcion que me calcula desde 3 matrices diferentes y necesito devolver el valor de cada matriz dentro de la misma funcion.

Lo estoy haciendo de esta manera pero solo puedo devolver 1

Código Delphi [-]
function LBR_For_Venus(At_JDE:extended):extended;
var
  L, B, R, T : Extended;
begin
  //Compute T as Julian millennia since J2000.0
  T := (At_JDE - 2451545) / 365250;
       
  //Compute heliocentric, ecliptical Longitude L in radians
  L := Venus_L01(T) + Venus_L11(T) + Venus_L21(T) + Venus_L31(T) +
       Venus_L41(T) + Venus_L51(T);

  //Compute heliocentric, ecliptical Latitude B in radians
  B := Venus_B01(T) + Venus_B11(T) + Venus_B21(T) + Venus_B31(T) +
       Venus_B41(T) + Venus_B51(T);
       
  //Compute heliocentric distance R in AU
  R := Venus_R01(T) + Venus_R11(T) + Venus_R21(T) + Venus_R31(T) +
       Venus_R41(T) + Venus_R51(T);
  
  //Convert longitude and latitude from radians into degrees.
  L := L * 45 / Arctan(1);
  If Abs(L) >= 360 Then L := L - 360 * Int(L / 360);
  If L < 0 Then L := L + 360;
  
  B := B * 45 / Arctan(1);

  //Return the L,B,R values in a data vector string
  LBR_For_Venus := L;
  LBR_For_Venus := B;
  LBR_For_Venus := R;

end;

Solo puedo devolver 1 valor a la vez, pero requiero devolver el resultado de cada uno (L, B y R)

Gracias de antemano

[elrayo76]

Buenas,

Lo que yo aría es primero convertir la función "function LBR_For_Venus(At_JDE:extended):extended;" en un procedure. Deesta forma ya no devuelves los valores como resultados. Luego puedes hacer algo como lo siguiente para devolver los tres valores.

Código Delphi [-]
procedure LBR_For_Venus(At_JDE:extended; out L: extended; out B: extended; out R: extended);
begin
  .....

end;

Con lo anterior luego declaras las 3 variables que resiviran los datos del procedure se la pasas en los parámetros y las mismas tendrán los valores que necesitas.

Por otro lado en lugar de que el resultado sea un Extended puedes hacer que sea un record con los 3 valores.

Fijate cual te conviene mas para lo que necesitas.

Saludos,
El Rayo

[compuin]

Gracias,

Voy a probar lo que me dices

[compuin]

Me da estos mensajes de errores cuando lo paso como una procedure

Código Delphi [-]
[Error] ConstVenus.pas(65): There is no overloaded version of 'LBR_For_Venus' that can be called with these arguments

[Error] ConstVenus.pas(38): Previous declaration of 'LBR_For_Venus' was not marked with the 'overload' directive

[elrayo76]

Buenas,

Fijate que los errores que te da es porque existe otro procedure/function con el mismo nombre. Para que puedas tener mas de uno con el mismo nombre pero diferentes parametros tienes que marcar a todos como "overload".

Esta directiva se agrega detras de todo cuando declaras la function/procedure. En este enlace tienes un ejemplo de como se usa http://www.delphibasics.co.uk/RTL.asp?Name=Overload. No importa el ambito de la misma, es decir si una es privada y la otra pública o si las dos son públicas, solo el nombre.

Cualquier cosa avisas.

Saludos,
El Rayo

[compuin]

Ahora me arroja esto

Código Delphi [-]
[Error] ConstSaturn.pas(8): Unsatisfied forward or external declaration: 'LBR_For_Venus'

[compuin]

Empezado por elrayo76

Buenas,

Lo que yo aría es primero convertir la función "function LBR_For_Venus(At_JDE:extended):extended;" en un procedure. Deesta forma ya no devuelves los valores como resultados. Luego puedes hacer algo como lo siguiente para devolver los tres valores.

Código Delphi [-]
procedure LBR_For_Venus(At_JDE:extended; out L: extended; out B: extended; out R: extended);
begin
  .....

end;

Con lo anterior luego declaras las 3 variables que resiviran los datos del procedure se la pasas en los parámetros y las mismas tendrán los valores que necesitas.

Por otro lado en lugar de que el resultado sea un Extended puedes hacer que sea un record con los 3 valores.

Fijate cual te conviene mas para lo que necesitas.

Saludos,
El Rayo

Hola, como puedo hacer el record con 3 valores??

[Neftali [Germán.Estévez]]

Empezado por compuin

Hola, como puedo hacer el record con 3 valores??

Primero defines cómo quieres el record:
http://docwiki.embarcadero.com/RADSt...traditional.29

Código Delphi [-]
type
  MyRecord = record
    elem1: extended;
    elem2: string;
    elem3: boolean

  end;

Y luego lo usas en tu funtion/procedure:
http://docwiki.embarcadero.com/RADStudio/Rio/en/Parameters_(Delphi)#Out_Parameters

Código Delphi [-]
  procedure MyProcedure(var rec:MyRecord);
  begin
    ...
    rec.elem1 := ...
    rec.elem2 := ...
    ....