Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); Var aouble; begin Try a:=StrToFloat(Edit1.Text); a:=a+200; Edit1.Text:=FloatToStr(a); Except ShowMessage('Error de conversión.'); end; end;
procedure TForm1.Button1Click(Sender: TObject); Var aouble; begin Try a:=StrToFloat(Edit1.Text); a:=a+200; Edit1.Text:=FloatToStr(a); Except ShowMessage('Error de conversión.'); end; end;