Tema: sumar edits
Ver Mensaje Individual
  #9  
Antiguo 12-08-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Reputación: 22
ArdiIIa Va por buen camino
A ver si lo resumimos:
Edit1 y Edit2 en su evento onChange apuntan al mismo procedure: SUMA.
Código Delphi [-]
procedure TForm1.Suma(Sender: TObject);;
begin
Edit3.Text := IntToStr( StrToIntDef(Edit1.Text,0) + StrToIntDef(Edit2.Text,0) );
end;

En el caso de que alguna de las entradas sea incorrecta (letras, espacios), no se produce error, sino el valor devuelto es cero...
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO
Responder Con Cita