Ayuda StringGrid

[ecfisa]

Hola.

Por favor si no te responden, no crees un nuevo hilo con la misma consulta (punto 13 de la Guía de estilo), continua preguntando en el hilo inicial y este pasará a la cabecera de la lista. Como tienes pocos mensajes, combiné ambos en el hilo inicial.

¿ Por que tres StringGrids? ¿ No puede ser uno sólo con tres filas ?, lo que te sugiero es mas o menos así:

1. Definir tres filas en el StringGrid
2. Verificar que lo ingresado en LabeledEdit1 y LabeledEdit2 son números enteros válidos. Si no lo son abortar, de otro modo sumarlos y convertir el valor suma a cadena.
3. Darle al StringGrid tantas columnas como dígitos tiene la suma (obviamente los sumandos tendrán igual o menos dígitos que la suma).
4. Pasar los dígitos (caracteres) para cada número y la suma.

1.

Código Delphi [-]
  StringGrid1.RowCount := 3

2.

Código Delphi [-]
  if not TryStrToInt( LabeledEdit1.Text, a) then
    raise Exception.Create('El primer número es inválido');

  if not TryStrToInt( LabeledEdit2.Text, b) ...
  ...

  LabeledEdit3.Text := IntToStr( a + b );

3.

Código Delphi [-]
  StringGrid1.Colcount := Length( LabeledEdit3.Text );

4.

Código Delphi [-]
  for i := 1 to Length(LabeledEdit1.Text) do
    StringGrid1.Cells[StringGrid1.ColCount-i, 0] := LabeledEdit1.Text[ Length( LabeledEdit1.Text )-i+1 ];

  for i := 1 to Length(LabeledEdit2.Text) do
    StringGrid1.Cells[StringGrid1.ColCount-i, 1] := ...
  ...

Saludos