Ver Mensaje Individual
  #2  
Antiguo 11-04-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola franco_cvm, bienvenido a Club Delphi

Como acostumbramos con los que recién ingresan, te invitamos a que leas nuestra guía de estilo.

Es innecesaria la carga previa de los cuadrados de los valores en un arreglo, simplemente se puede hacer:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:= 1 to 20 do
  begin
    StringGrid1.Cells[i-1,0]:=IntToStr(i);
    StringGrid1.Cells[i-1,1]:=IntToStr(i*i);
  end;
end;
No sé si podré darte una explicación mas clara que la que surge de la sola visualización del código, pero a ver...
  • Se ejecuta un ciclo que va desde 1 a 20.
  • La variable de control sirve como índice de las columnas.
  • La variable de control, se va mostrando en la fila 0 (i-1) y sucesivas columnas con su valor original y en la fila subyacente, con su valor multiplicado por si mismo (cuadrado).
Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita