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

Question

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

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

现在，当用户输入无法转换为数字的内容时，问题就出现了。我怎样才能防止这种情况发生？一个人可以使用异常吗？我该如何编写这个异常？

我正在使用Delphi XE2。

Answer 1

最好的解决方案(恕我直言)是使用 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..except 并不是特别“干净”。当错误是微不足道的，并且事实上正如预期的那样，就像在本例中一样。