如何正确格式化和验证编辑控件以仅接受浮点或货币值

发布于 2024-10-18 05:01:27 字数 242 浏览 5 评论 0原文

我有一个应用程序需要在编辑控件中接受浮动或货币值。我的问题是我必须做什么来格式化和验证编辑控件输入，以便它只接受数字、逗号或点（逗号或点取决于系统区域设置）。格式为##.## (45.21)。我想做一种可以控制使用浮动格式和验证的所有编辑控件的方法。

现在我在 OnChange 事件中有使用 TryStrToFloat 方法的代码，但有时我会收到“''不是浮点数”错误。

也许你们比我做得更多，并且有一些很好的例子如何正确地做到这一点。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

清晰传感 2024-10-25 05:01:27

如果您想继续使用相同的验证方法，只需增强您的算法以考虑边缘情况（以及您希望如何管理它）。

例如，您可以考虑接受空字符串作为有效输入，并且不抛出异常，或者不抛出异常。您还必须考虑在输入格式错误的情况下如何执行用户交互。例如，如果用户输入无效数字，您希望阻止用户在同一毫秒内输入值......或者您可以采取更自然的方法（例如，进行验证，直到用户认为一切正确）。

您还可以通过在输入完成时以不间断的方式通知用户来管理验证，只需在有问题的字段上产生可见的效果，并在用户尝试时以停止的方式（例如使用消息框）保存数据。

一个简单的验证函数可能如下所示：

function IsEditValidFloat(Sender: TEdit; const AcceptBlank: Boolean = True): Boolean;
var
  sValue: string;
  Temp: Extended;
begin
  sValue := Trim(Sender.Text);
  if (sValue.Text = '') then
    Result := AcceptBlank
  else
    Result := TryStrToFloat(sValue, Temp);
end;

//you might call this on the OnChangeEvent:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if IsEditValidFloat(Sender as TEdit) then
    ChangeDisplayState(Sender, dsValid)
  else
    ChangeDisplayState(Sender, dsError);
end;

If you want to continue using the same validation approach, just enhance your algorithm to consider the edge cases (and how you want to manage that).

For example, you can consider accepting an empty string as a valid input and just don't throw an exception, or not. You must also consider how do you want to perform the user interaction in case of malformed input. For example if a user enters a invalid number, you want to stop the user to input values at that same millisecond... or you can take a more natural approach (for example, validating until the user thinks everything is correct).

You can also manage validation just by notifying the user in a non-stoper way while the input is being done, just making a visible effect over the offending fields, and in a stopper way (for example with a message box) if the user tries to save the data.

A simple validation function may look like this:

function IsEditValidFloat(Sender: TEdit; const AcceptBlank: Boolean = True): Boolean;
var
  sValue: string;
  Temp: Extended;
begin
  sValue := Trim(Sender.Text);
  if (sValue.Text = '') then
    Result := AcceptBlank
  else
    Result := TryStrToFloat(sValue, Temp);
end;

//you might call this on the OnChangeEvent:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if IsEditValidFloat(Sender as TEdit) then
    ChangeDisplayState(Sender, dsValid)
  else
    ChangeDisplayState(Sender, dsError);
end;

回复收藏 0 原文