Foros Club Delphi - Cargar datos en array para mostrar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cargar datos en array para mostrar (https://www.clubdelphi.com/foros/showthread.php?t=94631)

Cita:

Empezado por compuin (Mensaje 537069)

Y para llenar el StringGrid?

Estimado, tiene algún otro requerimiento?

:confused:

Amigo espero lo tome a bien, ponga algo de su parte investigue, lea, busque, pruebe código, meta las manos...

Recursos hay muchos...

Saludos cordiales

Creando

Código Delphi [-]TvPlaneta : array [1..9] of TPlaneta;

me arroja este error

Código Delphi [-][Error] Unit1.pas(133): '=' expected but ';' found

Cita:

Empezado por cloayza (Mensaje 537071)

Si hago las preguntas en el foro es por que ya investigue, lei, busque, probe código, meti las manos...

Si vas a aportar algo a mi post, bienvenido seas...

Si no, que tengas buen dia!

Hola.

Cita:

Empezado por compuin (Mensaje 537072)

Creando

Código Delphi [-]TvPlaneta : array [1..9] of TPlaneta;

me arroja este error

Código Delphi [-][Error] Unit1.pas(133): '=' expected but ';' found

En los mensajes #15 y #19, publiqué:

Código Delphi [-]type
  TPlanet = record
      l,b,r: Extended;
  end;
  TvPlanet = array[1..9] of TPlanet;

Saludos :)

Lo habia solucionado asi

Código Delphi [-]  
   private
    { Private declarations }
   public
    { Public declarations }
  TvPlanetas : array [1..9] of TPlaneta;
  end;

Const

Código Delphi [-]procedure CargarPlanetas(At_JDE:extended; var v: TvPlanetas);
begin
  LBR_For_Sun(At_JDE,     v[1].L, v[1].B, v[1].R);
  LBR_For_Mercury(At_JDE, v[2].L, v[2].B, v[2].R);

...

  LBR_For_Neptune(At_JDE, v[9].L, v[9].B, v[9].R);
end;

Código Delphi [-][Error]  Unit1.pas(164): Undeclared identifier: 'TvPlanetas'

Me sigue arrojando error

Pero ni siquiera haces caso de lo que te responden, haz caso a cloayza y a ecfisa, te están ayudando y tú haces lo que te parece. Claro que te da error, si no usas el código que te aconsejan.
Ya se te ha comentado otras veces en otros hilos también, si necesitas ayuda, describe correctamente el problema, muestra tu código, prueba correctamente el código que te indican y no lo modifiques como te parezca, sé más humilde con tus respuestas, pues están intentando ayudarte, aquí nadie cobra nada, son todos voluntarios.
Además, este hilo dice "Cargar datos en array para mostrar", en ningún sitio dice nada de cómo usar un stringgrid, y es otra norma de nuestra guía de estilo que incumples.

Estoy usando el codigo que me fue explicado anteriormente, y tambien puse el codigo que estoy usando para que se entienda el problema que se esta presentando, solo que ajustado a lo que me recomendaron anteriormente.

Cita:

Además, este hilo dice "Cargar datos en array para mostrar", en ningún sitio dice nada de cómo usar un stringgrid, y es otra norma de nuestra guía de estilo que incumples.

Lo del stringgrid fue un lapsus, creo que le puede pasar a cualquiera.

Entonces, la respuesta sarcastica de cloayza es aceptable

Cita:

Empezado por cloayza Ver Mensaje
Estimado, tiene algún otro requerimiento?

Pero queyo le responda deseandole buen dia no lo es?

Asi incumplo la guia de estilo?

Cita:

Empezado por compuin (Mensaje 537084)

Ecfisa te ha contestado para decirte que ese no es el código que te ha puesto.

Cita:

Empezado por compuin (Mensaje 537084)

Lo del stringgrid fue un lapsus, creo que le puede pasar a cualquiera.

Le puede pasar a cualquiera, pero no constantemente y si ya llevas más de 200 mensajes y sabes que no deberías hacerlo.

Cita:

Empezado por compuin (Mensaje 537084)

Entonces, la respuesta sarcastica de cloayza es aceptable

No hay sarcarsmo en esa respuesta, te está indicando que te esfuerces un poco, porque es que eso de ¿cómo rellenar un stringgrid?, para alguien con la experiencia que ya tienes y con todos los hilos en los que has participado, da sensación de vago, como si alguien en la universidad pregunta cuánto son 2x50 porque no le apetece hacer el cálculo o sacar la calculadora. O volver a preguntar lo mismo una y otra vez.

Cita:

Empezado por compuin (Mensaje 537084)

Pero queyo le responda deseandole buen dia no lo es?
Asi incumplo la guia de estilo?

Obviamente, eso está bien, tampoco te pongas a la defensiva.
Y por supuesto, todos los que están aquí son voluntarios, que quieren ayudar, pero si se les contesta mal entonces no esperes que se te ayude.
Y luego recuerda siempre el "lema" del compañero Neftali, que está en su firma:
Más tiempo dedicado a la pregunta=Mejores respuestas.
Que tengas un buen día.

Estimados,

Finalmente lo resolvi asi:

Código Delphi [-]var
  i:Integer;
  L:Double;
  B:Double;
  R:Double;
  JDE:Double;
  Long:array [1..12] of Double;
  Lati:array [1..12] of Double;

...

Begin

  for i:= 0 to 7 do
   begin
    PosPlanet(i,At_JDE,L,B,R);
      Long[i]:= L;
      Lati[i]:= B;
   end;

  //planetas
  for i := 1 to 12 do
   begin
      StringGrid1.Cells[0,i+0] := PlanetNames[i-1];
      StringGrid1.Cells[1,i+1] := ZodiacName(Long[i-1]);
      StringGrid1.Cells[2,i+1] := AngleToStr(Long[i-1]);
      StringGrid1.Cells[3,i+1] := AngleToStr(Lati[i-1]);
   end;

end;

Muchisimas gracias a todos los que me aportaron su valioso tiempo y conocimiento para poder avanzar en este proyecto!

Saludos
:D

Estupendo, gracias por compartirlo ^\||/

Cita:

Empezado por compuin (Mensaje 537103)

Estimados,

Finalmente lo resolvi asi...
...
Muchisimas gracias a todos los que me aportaron su valioso tiempo y conocimiento para poder avanzar en este proyecto!

Saludos
:D

Estimado Compuin: No se tome a mal mis palabras, como dice el compañero Casimiro Notevi, me dio la impresión que solo pedía y pedía...

Lo felicito por haber logrado desarrollar su aplicación. Le animo a continuar siendo parte de este gran foro y por supuesto aportando sus conocimientos y experiencia en forma desinteresada, como muchos mas.

Que tenga un buen día...:D

Notas:
1) No es sarcasmo...:o
2) Si lo desea, el foro tiene un ftp donde puede subir su aplicación (si desea compartirla), para que quede disponible para otros foreros, que en algún momento se topen con algo simular a su desarrollo y les pueda servir de guía.