Hola.
Podes usar un arreglo de record, vg.r.:
Código Delphi
[-]
...
implementation {$R *.dfm}
const
NPLANETAS = 9;
type
TPlaneta = record nombre: string;
L,B,R : Extended;
end;
TvPlanetas = array[1..NPLANETAS] of TPlaneta;
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;
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
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;
Memo1.Clear;
Memo1.Font.Name := 'Courier';
Mostrar_planetas(vp, Memo1.Lines);
end;
...
Salida:
Saludos