sumar edits

[salvica]

Hola

Empezado por Caral

Hola
...
Ojo, si borras el numero, osea lo dejas en blanco, en el edit2 generara un error.
Saludos

No necesariamente

Código Delphi [-]

procedure TForm1.Actualiza( Valor1, Valor2:string );
var 
  Nro1, Nro2 : real;
begin
{ evitar el error si se mete una letra, o se deja en blanco }
  Nro1       := StrToFloatDef( Valor1, 0 );
  Nro2       := StrToFloatDef( Valor2, 0 );
{ ver el resultado }
  Edit3.Text := FloatToStr( Nro1+Nro2 );
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Actualiza( Edit1.Text, Edit2.Text );
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  Actualiza( Edit1.Text, Edit2.Text );
end;

Saludos