Llenar array

[compuin]

Hola amigos, estoy tratando de crear un array de la siguiente forma

Código Delphi [-]
planet    : array[1..12] of double;

Código Delphi [-]
{ Calculo de los Planetas }
      for i := SE_SUN to SE_MEAN_NODE do
        begin
          swe_calc_ut(Date.JulDay, i, iflag, xx[0], serr);

          { Coordenadas Eclipticas }
          lg:= xx[0];    //Longitud
          lt:= xx[1];    //Latitud

          for i:= 1 to 12 do
               planet[i]:= xx[0];

Lo cieeto es que no funciona

Alguna sugerencia ?

[Casimiro Notevi]

¿Qué es se_sun?
¿Qué es se_mean_node?
¿Qué es swe_calc_ut?
¿Qué es iflag?
¿Qué es xx?
¿Qué es serr?
¿Qué es lg?
¿Qué es lt?
Y aparte de eso, ¿qué es lo que no funciona?
Y pon todo tu código involucrado.

Empezado por compuin

Lo cieeto es que no funciona
Alguna sugerencia ?

[compuin]

Empezado por Casimiro Notevi

¿Qué es se_sun?
¿Qué es se_mean_node?
¿Qué es swe_calc_ut?
¿Qué es iflag?
¿Qué es xx?
¿Qué es serr?
¿Qué es lg?
¿Qué es lt?
Y aparte de eso, ¿qué es lo que no funciona?
Y pon todo tu código involucrado.

Código Delphi [-]
var
  i, iflag  : integer;
  xx     : Array[0..5] of double;
  serr   : Array[0..255] of Char;
  hcusps : array[0..12] of double;
  lg, lt : double;

Esta es la funcion

Código Delphi [-]
function swe_calc_ut(tjd         : double;    {Julian day, Universal Time}
                     ipl         : Integer;   {planet number}
                     iflag       : Longint;   {flag bits}
                     var xx      : double;    {first of 6 doubles}
                     sErr        : PChar      {Error-String}
): Longint; stdcall; far; external 'swedll32.dll' name '_swe_calc_ut@24';

Código Delphi [-]
var xx

devuelve lo siguiente

xx =array of 6 doubles for longitude, latitude, distance, speed in long., speed in lat., and speed in dist.

Necesito que me devuelva xx=0;

[compuin]

Necesito es

Código Delphi [-]
result := planet[i];

[cloayza]

Yo necesito tantas cosas....

[compuin]

Empezado por cloayza

Yo necesito tantas cosas....

Que te puedo decir....

[Casimiro Notevi]

Empezado por compuin

Necesito que me devuelva xx=0;

No se entiende nada, y de todas formas, si quieres que devuelva xx=0, entonces ¿para qué quieres la función?

[compuin]

Que no entiendes? Te puse toda la informacion que me pedistes

[compuin]

Lo que requiero es que el resultado de lg:= xx[0]; lo pueda agregar a un array que llamo planet[i]