Question

delphi怎样用循环去判断,edit1.text里的内容是数字?

对文本长度的进行一个一个的判断是否为数字？

比如：我在edit1.text中输入：“4561ds32”这样，从左向右一个一个的对字符的ascii值进行判断？

写在button1.click事件中

Answer 1

楼上方法更简单一些.
如果想用循环的方法实现的话
var
i:integer;

for i:=1 to Length(Edit1.Text) do
begin
if not (Edit1.Text[i] in ['0'..'9']) then
ShowMessage(Edit1.Text[i] + '不是数字');
end;

手工打的,如果不对自己尝试修改一下!还有Edit1.Text只能为数字或字母.
如果是汉字的话,就不行了!

Answer 2

try
strtoint(edit1.text)
失败 就说明不行

Answer 3

你要达到什么目的哦？
你如果只想edit里输入数字的话
在事件里限制就可以了
没有必要去循环判断
浪费资源
或者在输入完成的时候判断一次啊

Answer 4

为什么要用循环噢～～～～

if strtointdef(edit1.text, -9999) = -9999 then 不全是数字～