Llenar array

[[escafandra]]

Este código es funcional con la dll swedll32.dll. Rellena el array con los datos pedidos y los muestra en un Memo:

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:= 1 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('%s:   %3.5n', [pName, planet[i]]));
  end;
end;

Saludos.