Código Delphi [-] procedure TForm1.Edit2Change(Sender: TObject); begin Edit3.Text := FloatToStr(StrToFloatDef(Edit1.Text,0) + StrToFloatDef(Edit2.Text,0)); end;
procedure TForm1.Edit2Change(Sender: TObject); begin Edit3.Text := FloatToStr(StrToFloatDef(Edit1.Text,0) + StrToFloatDef(Edit2.Text,0)); end;