Cargar datos en array para mostrar

[compuin]

Hola foro,

Tengo la siguiente situacion

Tengo las siguentes variables

Código Delphi [-]
L:=0; B:=0 y R:=0;

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

[ecfisa]

Hola.

Podes usar un arreglo de record, vg.r.:

Código Delphi [-]
...
implementation  {$R *.dfm}

const
  NPLANETAS = 9; // (u ocho según consideres a Plutón)

type
  TPlaneta = record   // un planeta
    nombre: string;
    L,B,R : Extended;
  end;

  TvPlanetas = array[1..NPLANETAS] of TPlaneta; // nueve planetas

// Procedimiento que muestra planetas
procedure MostrarPlanetas(VP: TvPlanetas; ST: TStrings);
var
  i : Integer;
begin
  for i := Low(VP) to High(VP) do
    ST.Add(Format('%8s : %8.2f - %8.2f - %8.2f',
      [VP[i].nombre, VP[i].L, VP[i].B, VP[i].R]));
end;

// Codigo de ejemplo
procedure TForm1.btnShowClick(Sender: TObject);
const
  NAMES: array[1..NPLANETAS] of string =('Mercurio','Venus','Tierra','Marte',
    'Jupiter','Saturno','Urano','Neptuno','Plutón');
var
  vp: TvPlanetas;
  i : Integer;
begin
  // Cargar algo en vp...
  for i := 1 to NPLANETAS do
  begin
    vp[i].nombre := NAMES[i];
    vp[i].L := i;
    vp[i].B := i;
    vp[i].R := i;
  end;

  // Mostrar arreglo de planetas en un Memo
  Memo1.Clear;
  Memo1.Font.Name := 'Courier';
  Mostrar_planetas(vp, Memo1.Lines);
end;
...

Salida:



Saludos

[compuin]

Muchas gracias por el ejemplo

Pero aca no veo como lleno el valor de cada planeta en el arreglo desde la funcion LBR_For para cada uno de ellos

[compuin]

Basicamente necesito algo asi,


Tengo

Código Delphi [-]
  TPlaneta = record
    Lat : Extended;
    Lon : Extended;
    Rad : Extended;
  end;

Y esta es la funcion para conseguir los valores del Sol, por ejemplo:

Código Delphi [-]
LBR_For_Sun(At_JDE,L,B,R);

Lo que me devuelva la funcion, asignarselo a

Código Delphi [-]
Planeta[i].lon:=L;
Planeta[i].lat:=B;
Planeta[i].rad:=R;

Y asi, lo mismo para el resto de los planetas

[ecfisa]

Hola.

No entiendo bien la situación, pero supongo que tendrías que cambiar el tipo del argumento de la función, por ejemplo:

Código Delphi [-]
type
   TPlaneta = record
    Lat : Extended;
    Lon : Extended;
    Rad : Extended;
  end;


procedure LBR_For_Sun(At_JDE: Extended; var PL: TPlaneta);
begin
  // Operaciones inherentes a la función

  // ...

  // Asignar los valores obtenidos al registro
  PL.Lat := ...
  PL.Lon := ...
  PL.Rad := ...
end;

Saludos

[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?