Cargar datos en array para mostrar

[compuin]

Pero alli es donde esta mi confusion ya que cada planeta tiene la misma cantidad de parametros, es decir, las mismas variables L,B,R y no encuentro como hacer para usar la mismas variables para todos los planetas

[ecfisa]

Empezado por compuin

Pero alli es donde esta mi confusion ya que cada planeta tiene la misma cantidad de parametros, es decir, las mismas variables L,B,R y no encuentro como hacer para usar la mismas variables para todos los planetas

No logro entender el asunto...

Usando un arreglo, todos los planetas usan los mismos nombres de variables:

Planeta 1 (vp[1]) -> Lat, Lon, Rad
Planeta 2 (vp[2]) -> Lat, Lon, Rad
Planeta 3 (vp[3]) -> Lat, Lon, Rad
...

pero, esos nombres en distintas partes del arreglo pueden tener diferentes valores.

Ahora si deseas "usar las mismas variables para todos los planetas" quiere decir que todos los planetas tendrán los mismos valores en L,B,R ¿ o no ?

Saludos

[compuin]

L,B,R van a tomar el valor correspondiente de cada planeta luego del retorno de la funcion

Es decir, tendre L,B,R para el Sol, L,B,R para Mercurio, etc

El problema es que lo estoy haciendo llamando a la funcion cada vez que quiero calcular cada planeta, entonces tengo muchas lineas de codigo repitiendo lo mismo, la idea es poder hacerlo en un solo llamado pero que calcule y retorne los resultados de los planetas de una vez

No se si ya me hice entender

[ecfisa]

Hola.

Empezado por compuin

..., la idea es poder hacerlo en un solo llamado pero que calcule y retorne los resultados de los planetas de una vez

Código Delphi [-]
procedure CargarPlanetas(var VP: TvPlanetas);
begin
  VP[1] := LBR_For_Sun(At_JDE,L,B,R);
  VP[2] := LBR_For_Mercury(At_JDE,L,B,R);
  VP[3] := LBR_For_Venus(At_JDE,L,B,R);
  VP[4] := LBR_For_Earth(At_JDE,L,B,R);
  VP[5] := LBR_For_Mars(At_JDE,L,B,R);
  VP[6] := LBR_For_Jupiter(At_JDE,L,B,R);
  VP[7] := LBR_For_Saturn(At_JDE,L,B,R);
  VP[8] := LBR_For_Uranus(At_JDE,L,B,R);
  VP[9] := LBR_For_Neptune(At_JDE,L,B,R);  
end;

Saludos

[compuin]

Gracias

Lo pruebo y te comento.

Saludos

[ecfisa]

Perdón, no sé donde puse la cabeza...

Olvida el mensaje anterior, debería haber sido:

Código Delphi [-]
procedure CargarPlanetas(var VP: TvPlanetas);
begin
  LBR_For_Sun(At_JDE, VP[1].Lat, VP[1].Lon, VP[1].Rad);
  LBR_For_Mercury(At_JDE, VP[2].Lat,VP[2].Lon ,VP[2].Rad);

  ...

  LBR_For_Uranus(At_JDE, VP[8].Lat, VP[8].Lon, VP[8].Rad);
  LBR_For_Neptune(At_JDE,VP[9].Lat, VP[9].Lon, VP[9].Rad);  
end;

Saludos

[compuin]

En este caso, cuando vaya a mostrar el platena en un Grid, lo estoy haciendo asi,

Caso Sol:

Código Delphi [-]
  StringGrid1.Cells[2,1] := AngleToStr(Lo); 
  StringGrid1.Cells[3,1] := AngleToStr(Bo);
  StringGrid1.Cells[4,1] := AngleToStr(Ro);

Caso Mercurio

Código Delphi [-]
  StringGrid1.Cells[2,3] := AngleToStr(Lm);
  StringGrid1.Cells[3,3] := AngleToStr(Bm);
  StringGrid1.Cells[4,3] := AngleToStr(Rm);

Cuando quiero mostrar todos los planetas tengo que crear una variable L(algo), B(algo) para mostrar los resultados por cada planeta. La idea de poderlo hacer mas sencillo con la mismas variables Lo,Bo y Ro

Es esto posible o existe otra mejor practica para hacerlo?