如何验证必须是整数、非负数、非小数且不是字符串的值？ （或字母词）来自 InputQuery？

Question

我使用 InputQuery 从用户那里获取一个值，但它只能是整数 (from 1 to 9999999...)，不能是小数，也不能是字符串（不是 ABCDEF）或不是字母数字（A1B2C3）而不是特殊字符 (Hi!,)。在 delphi `RAD STUDIO 2010 中。

范围是捕获值，然后显示一条消息，告诉用户他必须只输入有效值。

我怎样才能做到这一点？

Answer 1

这很简单：

var
  s: string;
  i: Integer;
begin

  if InputQuery(Caption, 'Please enter a positive integer:', s) then
    if TryStrToInt(s, i) and (i > 0) then
      ShowMessage('An excellent choice, sir!')
    else
      ShowMessage('That''s not a positive integer, is it?')

如果用户取消它（这是预期的），这将显示提示并且不执行任何操作。另一方面，如果用户确实输入了一个值，则会使用TryStrToInt 和一个简单的符号测试对其进行验证。

请注意，由于布尔短路评估，第二个合取 (i > 0) 只会在第一个合取 (TryStrToInt(s, i)) 评估为 True 时评估，因此我们永远不会测试未初始化的变量 @987654329 @（不过在这种情况下并不重要）。

您可能还想使用a more sophisticated input box 自动验证对话框中的输入（免责声明：我的网站）。

---

或者，您可以使用InputQuery 函数自己的验证功能，当用户单击确定时，它将验证输入：

var
  s: array of string;
  i: Integer;
begin
  SetLength(s, 1);
  if InputQuery(Caption, ['Please enter a positive integer:'], s,
    function(const Values: array of string): Boolean
    begin
      Result := (Length(Values) = 1) and TryStrToInt(Values[0], i) and (i > 0);
      if not Result then
        ShowMessage('That''s not a positive integer, is it?')
    end)
  then
    ShowMessageFmt('You chose %d. That''s an excellent choice, sir!', [i]);