sumar edit en tiempo de ejecucion

[georgejg]

gracias por responder Fidel

ahora lo q pasa es q al quere digitar dentro del 1 Edit me lansa un error diciendo exactamente:

is not a valid integer value

es decir q No es un valor de número entero válido
a q se debe esto.

ahora una pregunta listo colo

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

dentro del evento onKeyPress de todos los 5 edit o a cada edit

y aq te refieres cuando dices

Después vas a la ventana del evento OnKeyPress del segundo edit y seleccionas el nombre que le dió al primero

saludos

[ixMike]

El error te sale porque al principio los edit están vaciós. Puedes solucionarlo así:

Código Delphi [-]
If E1.Text='' then E1.Text:='0';
If E2.Text='' then E2.Text:='0';
If E3.Text='' then E3.Text:='0';
If E4.Text='' then E4.Text:='0';
If E5.Text='' then E5.Text:='0';
EditResultado.Text = IntToStr(StrToInt(E1.Text) + StrToInt(E2.Text) + StrToInt(E3.Text) + StrToInt(E4.Text) + StrToInt(E5.Text));

En cuanto a lo otro, a lo que se refiere es a lo siguiente: pones el código que te he dicho en el evento OnKeyPress de uno de los edits (en E1, por ejemplo). Depués, seleccionas los otros cuatro, te vas al inspector de objetos, a la pesataña de eventos, y en OnKeyPress seleccionas de la lista el que pongo Edit1KeyPress (o E1KeyPress, según hayas llamado al primer edit). Con eso lograrás que todos los Edits tengan el mismo procedure en el evento OnKeyPress.


Salu2.