本文整理自网络，侵删。
Delphi中，想判断一个字符串是否为数字，有好多方法，这里列出两种简单的方法：
1. 自定义函数
function isnum(str:string):boolean;
var
i:integer;
begin
for i:=1 to length(str) do
if not (str[i] in ['0'..'9']) then
begin
result:=false;
exit;
end;
result:=true;
end;
也可以作如下定义：
function IsDigit(S:String):Boolean;
var i,j:integer;
begin
Result:=True;
j:=0 ;
for i:=1 to length(s) do
begin
if not (s[i] in ['0'..'9','.'])then
Result:=False;
if s[i]='.' Then
j:=j+1;
end;
if j>1 then
Result:=False;
if (s[1]='.') or (s[length(s)]='.') then
Result:=False;
s:=copy(s,1, pos('.', S)-1);
j:=0;
for i:=1 to length(s) do
begin
if s[I]=’0’ then
j:=j+1;
end;
if j>1 then
Result:=False;
end;
2. 用获取例外的句柄
try
strtoint(ed1.Text);
except
showmessage('请输入合法匹配串！');
exit;
end;
相关阅读 >>
Delphi里的compile和build都能产生可执行文件，有什么区别啊？
Delphi如何把一个文本列表添加到tlistbox并避免重复项
Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决
Delphi 2009 泛型容器单元(generics.collections)[4]: tdictionary<t>
更多相关阅读请进入《Delphi》频道 >>
