Question

delphi 判断字符串是否为数字

Answer 1

有两种方法：
1、在edit1的onkeypress事件中输入如下代码
if not ( Key in ['0'..'9',#13,#16,#8]) then
begin
Key := #0 ;
Exit ;
end;

2、调用delphi本身自带的函数TryStrToInt来执行判断,例如在edit1的onExit事件中输入：
var i: Integer ;
begin
if not TryStrToInt(Trim(edit1.Text),i) then
begin
Application.MessageBox('您输入的数字不是整数，请重新输入。',
'错误提示', MB_OK + MB_ICONSTOP);
edit1.SetFocus ;
end;
end;

Answer 2

try
strtoint(str);
b:=true;
except
b:=false;
end;

如果b=true就代表是，strtoint 是个会异常返回的函数，如果是异常退出就代表是。。。。