本文整理自网络，侵删。
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在pagecontrol1上面的分页动态创建edit组件
如何用Delphi实现windows xp中“本地连接”的启用和禁用
Delphi windows 编程[16] - 添加与删除菜单项:getmenu、appendmenu、deletemenu、drawmenubar
winapi 字符及字符串函数(5): ischaralpha - 是否是个字母
Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测
更多相关阅读请进入《Delphi》频道 >>
