在 Delphi 中如何验证文本框仅包含数字？

Question

也许这是一个非常简单的问题，但我从未接触过delphi。 我有一个可以接受字符的编辑框。但在某些特殊情况下，我必须验证编辑框字符只是数字。

我们怎样才能做到这一点？

注意：用户可以输入任何字符，但在验证时我必须验证上述字符。

Answer 1

我不知道您打算使用什么事件来调用验证，但验证可以这样完成：

if TryStrToInt(Edit1.Text, Value) then
  DoSomethingWithTheNumber(Value)
else
  HandleNotANumberError(Edit1.Text);

Answer 2

我不明白为什么您希望允许用户输入字符，然后不允许它通过验证。

如果您确实需要阻止进入，那么为您执行此操作的控件比您自己破解更好。如果您的delphi版本确实很旧，那么请尝试一下JVCL组件库中的JVCL：TJvValidateEdit，例如在所有版本的delphi中。然而，在最新的 delphi 版本（2009 及更高版本）中，已经内置了几种可能的解决方案，包括 TMaskEdit 和 TSpinEdit。

如果您确实只需要编写验证方法，请考虑使用正则表达式或手动编码的验证函数，并将该代码与控件分开。

// Taking OP question obsessively literally, this 
// function doesn't allow negative sign, decimals, or anything
// but digits
function IsValidEntry(s:String):Boolean;
var
  n:Integer;
begin
  result := true;
  for n := 1 to Length(s) do begin
    if (s[n] < '0') or (s[n] > '9') then
    begin
       result := false;
       exit;
    end;
  end;
end;

Answer 3

我知道您说过用户可以输入任何字符，但在验证时。
不过我想提供一种替代方案，因为允许用户输入值，却在 1 分钟后向用户抱怨似乎很愚蠢；只是闻起来很香……不太好闻。

我不允许输入除数字之外的任何内容。
如果您有整数，那就特别简单：

填写编辑框的 OnKeyPress 事件。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char) ;
begin
  if not(Key IN ['0'..'9', #8, #9, #13, #27, #127]) then key:= #0;
end;

这将删除所有非数字的内容。

如果允许负数，则需要额外检查 - 之前是否未输入过。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char) ;
var
  Edit1Text: string;
begin
  if (Key = '-') and Pos('-',Edit1.Text) = 0 then begin
    Edit1.Text:= '-' + Edit1.Text;  //Force the '-' to be in the front.
  end
  else if (Key = '-') and Pos('-',Edit1.Text) <> 0 then begin  //else flip the sign
    Edit1Text:= Edit1.Text;
    Edit1.Text:= StringReplace(Edit1Text, '-', '',[]);
  end;
  if not(Key IN ['0'..'9', #8, #9, #13, #27, #127]) then key:= #0;
end;

由于用户还可以将数据粘贴到编辑框中，因此您仍然需要在编辑中更改文本时检查数据。
因为这在 ONKeyPress 事件中变得相当繁琐，所以我使用一个自定义编辑组件来执行这种检查并防止用户在编辑框中输入脚口输入。

就我个人而言，我不相信发出错误消息，您应该始终努力首先不允许用户输入无效数据。

Answer 4

但是在一些特殊情况下我有
验证编辑框字符是
只有数字。

您需要两个编辑控件。一种用于仅数字值，另一种用于允许所有值。启用或禁用符合条件的控件。如果这两个控件有良好的标题（也许还有提示，为什么启用或禁用控件），那么用户就知道他必须输入什么以及为什么。

• 我不喜欢阻止用户。场景：
• 输入“abc123”
• 我在离开编辑控件时
• 我收到一条错误消息“仅允许数字”我意识到我忘记了达到特殊条件
• 我想做一些事情来达到特殊条件条件，
• 但我不能，因为我总是收到错误消息“仅允许数字”，
• 所以我必须将值更正为“123”，
• 执行一些操作以达到特殊条件
• 重新输入我的旧“abc123”再次值

aarrgghh :-)

对于简单的数据输入表单，我执行以下操作：我允许错误输入，但将每个具有无效输入的编辑控件的字体颜色切换为红色（当空输入时，红色字体颜色不够）值是不允许的）。如果用户尝试发布数据，我会给出一个错误消息，通知用户所有无效的输入字段并中止发布。