sumar edits

[[ArdiIIa]]

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...

[[ArdiIIa]]

Se me han adelantado con el DEF

[[Caral]]

Hola
Hay que indicarle a nuestro amigo Kamael que:
StrToIntDef, se usa para numeros reales
StrToFloatDef, se usa para numeros con decimales
Saludos

[[ArdiIIa]]

Son funciones muy prácticas para evitar errores.
Lo normal es ponerlo con algún número negativo para comprobar...

Ejemplo

Código Delphi [-]
If  StrToIntDef(Edit1.Text,-1) = -1 then Valor_Incorrecto

[Kamael]

Muchisimas gracias a todos.
Lo pondre en practica mañana.
Ahora tengo las ideas mas claras y creo que ya se como hacerlo.
Ya os comentare el resultado.

[Matiax13]

hola, como estan?
donde tengo q poner este procedimiento
procedure TForm1.Actualiza;?

[Casimiro Noteví]

Donde quieras, al final, por ejemplo.

[[AgustinOrtu]]

Yo para estas cosas en lugar de TEdit prefiero usar componentes TSpinEdit, que son especificos para numeros

Código Delphi [-]
procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
  Edit1.Text := IntToStr(SpinEdit1.Value + SpinEdit2.Value);
end;

Usaria el mismo evento para el OnChange de dos SpinEdit1 y SpinEdit2, y se mostraria la suma en un Edit1

Incluso se pueden dejar los SpinEdit vacios y no genera excepciones

[salvica]

Empezado por Matiax13

hola, como estan?
donde tengo q poner este procedimiento
procedure TForm1.Actualiza;?

Como te dice Casimiro Notevi, puedes ponerlo en cualquier sitio, pero si al procedimiento Actualiza le antepones el TForm1, OBLIGATORIAMENTE debes declararlo en la zona private o public

Saludos a tod@s
Salvica