Código Delphi [-] var a :Real; b :String; begin b := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)); a:= StrToFloat(b); Label1.Caption := FormatFloat('###.00', a); end;
var a :Real; b :String; begin b := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)); a:= StrToFloat(b); Label1.Caption := FormatFloat('###.00', a); end;