Ver Mensaje Individual
  #7  
Antiguo 09-05-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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.

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
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 09-05-2017 a las 03:48:58.
Responder Con Cita