delphi – 如何只接受编辑控件中的数字？

发布时间：2020-12-15 04:12:20 所属栏目：大数据来源：网络整理

导读：通常我会执行以下操作将字符串值保存到数据库中 DataModule.tbTableNumber.Value := StrToFloat(edtNumber.text); 现在问题出现在用户输入无法转换为数字的内容时.我怎么能阻止这个？一个人可以使用异常吗？我将如何编写此异常？我正在使用Delphi XE2. 解决

通常我会执行以下操作将字符串值保存到数据库中

DataModule.tbTableNumber.Value := StrToFloat(edtNumber.text);

现在问题出现在用户输入无法转换为数字的内容时.我怎么能阻止这个？一个人可以使用异常吗？我将如何编写此异常？

我正在使用Delphi XE2.

解决方法

最好的解决方案(恕我直言)是使用TryStrToFloat：

procedure TForm1.Button1Click(Sender: TObject);
var
  myfloat: double;
begin
  if TryStrToFloat(Edit1.Text,myfloat) then
    DataModule.tbTableNumber.Value := myfloat
  else
    ShowMessage('Incorrect value.');
end;

我不认为使用try是特别“干净”的.除非错误是微不足道的,事实上,正如预期的那样,就像在这种情况下一样.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!