Veo que falta el sol, fácil, el bucle debe comenzar en cero:
Código Delphi
[-]var
i: integer;
xx: array[0..5] of double;
planet: array[1..12] of double;
pName: array[0..19] of Char;
serr: PChar;
JulDay: double;
begin
Memo1.Clear;
JulDay:= DateTimeToJulianDate(Now);
for i:= 0 to 10 do
begin
swe_calc(JulDay, i, 0, xx[0], serr);
planet[i]:= xx[0];
swe_get_planet_name(i, pName);
Memo1.Lines.Add(Format('%10s: %3.5n', [pName, planet[i]]));
end;
end;
Código Delphi
[-]
Sun: 332,76175
Moon: 313,82886
Mercury: 340,89081
Venus: 16,35077
Mars: 273,76076
Jupiter: 288,01368
Saturn: 297,35349
Uranus: 33,39225
Neptune: 347,80923
Pluto: 294,04669
mean Node: 95,48878
Saludos.