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