sumar edit en tiempo de ejecucion

[fidel]

Otra manera de evitar el error es .... StrToInt( '0' + Edit.text )

Código Delphi [-]
EditResultado.Text = IntToStr(StrToInt('0'+Edit1.Text) + StrToInt('0'+Edit2.Text) + StrToInt('0'+Edit3.Text) + StrToInt('0'+Edit4.Text) + StrToInt('0'+Edit5.Text) );

[ixMike]

Empezado por fidel

Otra manera de evitar el error es .... StrToInt( '0' + Edit.text )

Muy ingenioso nunca se me habría ocurrido.

Tomo nota


Salu2.

[georgejg]

Empezado por ixMike

Muy ingenioso nunca se me habría ocurrido.

Tomo nota


Salu2.

Hola a todos.

retomando con el tema despues de haber realizado las modificaciones de acuerdo a cada una de las recomendaciones, los resultados son los siguientes:

al poner los valores de los edit en '0' efectivamente se elimina el error
"is not a valid integer value" pero el problema ahora es al mostrar el resultado correcto. voy a ser lo mas especifico posible.

ejemplo:
en el Edit1 digito 1. en el editResultado me muestra 0.
Edit2 digito 2. en el editResultado me muestra 1.
Edit3 digito 3. en el editResultado me muestra 3.

si borro el Valor del Edit2 (2) en el editResultado me muestra 6.

otra pruba fue q al hacer alguna modificacion a algun valor de los edit y dar Enter el resultado lo muestra correctamente.

[georgejg]

Primero agradecerles por sus opiniones que fueron muy importantes.

ahora la solucion definitiva q se dio fue la siguiente:

podemos colocar el mismo codigo que nos mostro Fidel

Código Delphi [-]
EditResultado.Text = IntToStr(StrToInt('0'+Edit1.Text) + StrToInt('0'+Edit2.Text) + StrToInt('0'+Edit3.Text) + StrToInt('0'+Edit4.Text) + StrToInt('0'+Edit5.Text) );

pero no lo colocamos en evento OnKeyPress de los Edit ya que ocurre lo q les comente en el mensaje anterior.

ahora para que me ejecute correctamente lo colocamos en el evento OnChange esto me efectua las modificaciones en "Tiempo de Ejecucion" el codigo final q utilice fue el siguiente:

Código Delphi [-]
procedure TUnit_Main.Edit2Change(Sender: TObject);
begin
  Edit1.Text:= IntToStr(StrToInt('0'+Edit2.Text) + StrToInt('0'+Edit6.Text) + StrToInt('0'+Edit10.Text) + StrToInt('0'+Edit14.Text) + StrToInt('0'+Edit18.Text) + StrToInt('0'+Edit22.Text) + StrToInt('0'+Edit26.Text));
end;

nuevamente muchas gracias y hasta una proxima oportunidad

[ixMike]

Lo que te pasaba antes es porque el evento se ejecutaba antes de que el nuevo número se escribiera en el edit. También te habría valido el evento OnKeyUp.


Salu2.