Cargar datos en array para mostrar

[ecfisa]

Entonces, si declaras tu arreglo de planetas así:

Código Delphi [-]
type
  TPlanet = record
      L,B,R: Extended;
  end;

  TvPlanet = array[1..9] of TPlanet; // Mercurio,Venus,Tierra,Marte, Jupiter,Saturno,Urano,Neptuno,Plutón

De este modo podras cargar sus valores de una vez:

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

Saludos