Cargar datos en array para mostrar

[compuin]

Gracias,

Si mas o menos por ahi van los tiros, pero como hago para que pueda hacer esto para cada planeta sin que me arroje error por usar las mismas variables para cada uno de los planetas y luego llenar con un FOR un stringgrid para mostrar los valores de cada planeta?

[ecfisa]

Hola.

Si tienes:

Código Delphi [-]
 TPlaneta = record
    Lat : Extended;
    Lon : Extended;
    Rad : Extended;
  end;
  TvPlaneta: array[1..9] of TPlaneta;

Puedes llamar a la función con cada miembro del arreglo, v. gr.:

Código Delphi [-]
var
  vp: TvPlaneta;
   i: Integer;
begin
   for i := 1 to 9 do
     LBR_For_Sun(At_JDE {???}, vp[i]);
     ...

Saludos

[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