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í:
- Definir tres filas en el StringGrid
- 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.
- Darle al StringGrid tantas columnas como dígitos tiene la suma (obviamente los sumandos tendrán igual o menos dígitos que la suma).
- 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