Yo tampoco entiendo bien el asunto, faltan cosas. Creo que lo que pretende
compuin es algo como esto:
Código Delphi
[-]
var
i, iflag: integer;
xx: array[0..5] of double;
planet: array [1..12] of double;
serr: PChar;
begin
for i:= 1 to 12 do
begin
swe_calc_ut(Date.JulDay, i, iflag, xx[0], serr);
planet[i]:= xx[0];
end;
end;
Asumiendo que:
1.- Los indices de planeta van de 1 a 12 (pueden ser 0-11) según la función no documentada
swe_calc_ut
2.- La fecha se sabrá y se inicializará.
3.- iflag se conocerá y se inicializará.
Saludos.