Cargar datos en array para mostrar

[cloayza]

Empezado por compuin

Y para llenar el StringGrid?

Estimado, tiene algún otro requerimiento?



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

[compuin]

Creando

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

me arroja este error

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

[compuin]

Empezado por cloayza

Estimado, tiene algún otro requerimiento?



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

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!

[ecfisa]

Hola.

Empezado por compuin

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

[compuin]

Lo habia solucionado asi

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

Const

[compuin]

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'

[compuin]

Me sigue arrojando error

[Casimiro Notevi]

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.

[compuin]

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.

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

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?

[Casimiro Notevi]

Empezado por compuin

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.

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

Empezado por compuin

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.

Empezado por compuin

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.

Empezado por compuin

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.

[compuin]

Estimados,

Finalmente lo resolvi asi:

Código Delphi [-]
var
  i:Integer;
  Louble;
  Bouble;
  Rouble;
  JDEouble;
  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

[Casimiro Notevi]

Estupendo, gracias por compartirlo

[cloayza]

Empezado por compuin

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

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

Notas:
1) No es sarcasmo...
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.