Llenar array

[[escafandra]]

Ya, pero eso no es xx [0] que fue el origen de la pregunta y tampoco queda claro que son todos esos datos a no ser que seas entendido en la materia.

Saludos.

[compuin]

Empezado por escafandra

Ya, pero eso no es xx [0] que fue el origen de la pregunta y tampoco queda claro que son todos esos datos a no ser que seas entendido en la materia.

Saludos.

OK

Los datos de houses son las posiciones en una rueda que no esta presente en el codigo (no necesaria dibujarla)

Los calculos de la posicion de los planetas son mostrados en xx[0]

La pregunta original era como podia llenar un array llamado planeta a partir de este ultimo valor

[Casimiro Notevi]

Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

[ecfisa]

Hola.

Empezado por compuin

...
Los calculos de la posicion de los planetas son mostrados en xx[0]

La pregunta original era como podia llenar un array llamado planeta a partir de este ultimo valor

Entonces, la respuesta a esa pregunta sería algo así:

Código Delphi [-]
...
type
  VPlanet = array[1..12] of Double;

...

procedure LlenarPlaneta(Planet: VPlanet; const xx: Double); // donde: xx = ultimo valor
var
  i: Integer;
begin
  for i := Low(Planet) to High(Planet) do
    Planet[i] := xx;
end;

Saludos

[[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.

[compuin]

Hola escafandra

Puedes copiar aqui el resulado de la salida en el memo ??

Muchas gracias de antemano por tu disposicion a ayudar

[[escafandra]]

Moon: 313,77608
Mercury: 340,89415
Venus: 16,34585
Mars: 273,75778
Jupiter: 288,01284
Saturn: 297,35305
Uranus: 33,39210
Neptune: 347,80907
Pluto: 294,04657
mean Node: 95,48901

...........


Saludos.

[compuin]

Muchas gracias

Voy a implementarlo en mi proyecto y te dejare saber. Realmente pienso esto era lo que necesitaba al comienzo

Me disculpo nuevamente por mi falta de claridad al colocar un requerimiento

Muchas gracias a todos los que colaboraron de una u otra forma