Hola foro,
Tengo la siguiente situacion
Tengo las siguentes variables
Tengo una procedure que lee los siguientes parametros, nombre de planeta, fecha juliana y longitud, latitud y radio, asi
Código Delphi
[-]
procedure LBR_For(Object_Name:String;At_JDE:Extended;out L: extended; out B: extended; out R: extended);
begin
If Object_Name = 'SUN' Then LBR_For_Sun(At_JDE,L,B,R);
If Object_Name = 'MERCURY' Then LBR_For_Mercury(At_JDE,L,B,R);
If Object_Name = 'VENUS' Then LBR_For_Venus(At_JDE,L,B,R);
If Object_Name = 'EARTH' Then LBR_For_Earth(At_JDE,L,B,R);
If Object_Name = 'MARS' Then LBR_For_Mars(At_JDE,L,B,R);
If Object_Name = 'JUPITER' Then LBR_For_Jupiter(At_JDE,L,B,R);
If Object_Name = 'SATURN' Then LBR_For_Saturn(At_JDE,L,B,R);
If Object_Name = 'URANUS' Then LBR_For_Uranus(At_JDE,L,B,R);
If Object_Name = 'NEPTUNE' Then LBR_For_Neptune(At_JDE,L,B,R);
end;
Código Delphi
[-]
Procedure Posicion_Planeta(Object_Name:String; At_JDE:Extended;out L:extended;out B:Extended;out R:Extended);
Esta procedure devuelve el valor de L, B y R dependiendo del planeta (Sol hasta Neptuno).
Como puedo hacer para crear un arreglo que me almacene el resultado de cada planeta para luego mostrarlo con un bucle FOR?
Gracias de antemano