Cargar datos en array para mostrar

[ecfisa]

Hola.

A ver, te pongo un ejemplo ultra simplificado de que es lo que comprendí y como lo haría, tal vez nos ayude a entendernos.

Código Delphi [-]
...
implementation

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Rows[0].CommaText := ',L,B,R';
  StringGrid1.Cols[0].CommaText := ',Mercurio,Venus,Tierra,Marte, Jupiter,Saturno,Urano,Neptuno,Plutón'
end;

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;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  v: TvPlanet;
begin
   CargarPlanetas(v);
   for i := 1 to 9 do
   begin
     StringGrid1.Cells[1,i] := FloatToStr(v[i].l);
     StringGrid1.Cells[2,i] := FloatToStr(v[i].b);
     StringGrid1.Cells[3,i] := FloatToStr(v[i].r);
   end;
end;
end.

El resultado:


Saludos