Cargar datos en array para mostrar

[compuin]

Si, esto es lo que necesito pero en la procedure de CargarPlaneta que colocastes utilizo la anterior o la que estas colocando alli??

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;

Esta es la parte que me confunde un poco, ya que ahora la procedure luce asi

Código Delphi [-]
procedure CargarPlanetas(var v: TvPlanet);
var
  i: Integer;
begin
  for i  := 1 to 9 do
  begin
    v[i].l := i;
    v[i].b := i;
    v[i].r := i ;
  end;
end;

Cual es la correcta?

[ecfisa]

Hola.

En tu caso creo que es la primera, la que utiliza las funciónes "LBR_For_xxxx" (de las que desconozco todo). La del ejemplo fué eso; un ejemplo.
Es decir, deberías llenar cada uno de los elementos del arreglo de planetas con los valores que obtengas de cada función "LBR_For_xxxx" que le corresponda.

Saludos

[compuin]

Hola

Esto es lo que hace LBR_For_Mercury...hay un procedure por cada planeta

Código Delphi [-]
procedure LBR_For_Mercury(At_JDE:extended; out L: extended; out B: extended; out R: extended);
var
   T: extended;

begin
  //Compute T as Julian millennia since J2000.0
  T := (At_JDE - 2451545) / 365250;
       
  //Compute heliocentric, ecliptical Longitude L in radians
  L := Mercury_L01(T) + Mercury_L02(T);

  //Compute heliocentric, ecliptical Latitude B in radians
  B := Mercury_B01(T) + Mercury_B02(T);

  //Compute heliocentric distance R in AU
  R := Mercury_R01(T) + Mercury_R02(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);

end;

[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

[compuin]

Y para llenar el StringGrid?

[cloayza]

Empezado por compuin

Y para llenar el StringGrid?

Estimado, tiene algún otro requerimiento?



Amigo espero lo tome a bien, ponga algo de su parte investigue, lea, busque, pruebe código, meta las manos...

Recursos hay muchos...

Saludos cordiales

[compuin]

Empezado por cloayza

Estimado, tiene algún otro requerimiento?



Amigo espero lo tome a bien, ponga algo de su parte investigue, lea, busque, pruebe código, meta las manos...

Recursos hay muchos...

Saludos cordiales

Si hago las preguntas en el foro es por que ya investigue, lei, busque, probe código, meti las manos...

Si vas a aportar algo a mi post, bienvenido seas...

Si no, que tengas buen dia!

[compuin]

Creando

Código Delphi [-]
TvPlaneta : array [1..9] of TPlaneta;

me arroja este error

Código Delphi [-]
[Error] Unit1.pas(133): '=' expected but ';' found

[ecfisa]

Hola.

Empezado por compuin

Creando

Código Delphi [-]
TvPlaneta : array [1..9] of TPlaneta;

me arroja este error

Código Delphi [-]
[Error] Unit1.pas(133): '=' expected but ';' found

En los mensajes #15 y #19, publiqué:

Código Delphi [-]
type
  TPlanet = record
      l,b,r: Extended;
  end;
  TvPlanet = array[1..9] of TPlanet;

Saludos