DataModule.tbTableNumber.Value := StrToFloat(edtNumber.text);
现在问题出现在用户输入无法转换为数字的内容时.我怎么能阻止这个？一个人可以使用异常吗？我将如何编写此异常？
我正在使用Delphi XE2.
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是特别“干净”的.除非错误是微不足道的,事实上,正如预期的那样,就像在这种情况下一样.
