如何验证文本框中是否只包含Delphi中的数字？

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

我们怎么能这样做？

注意：用户可以输入任何字符,但在验证时我必须验证上面的字符.

解决方法

我不明白为什么你想让用户输入一个字符,后来不允许它通过验证.

如果你真的需要阻止进入,那么为你做这个的控件比自己破解它更好.如果你的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;

原文地址：https://www.jb51.cc/delphi/102085.html