5,386
社区成员
发帖
与我相关
我的任务
分享delphi有没有一个可以判断字符串的字符全是数字的函数？
在vb中是有这么一个函数，叫 isnumeric（） 什么的。
请问在delphi有这样一个可以判断字符串的字符全是数字的函数吗？
叫什么？
请问在delphi有这样一个可以判断字符串的字符全是数字的函数吗？
叫什么？
...全文
请发表友善的回复…
发表回复
freetide 2003-08-20
- 打赏
- 举报
谢谢各位。
看来是真的要自已写啊。
看来是真的要自已写啊。
charles2118 2003-08-20
- 打赏
- 举报
呵呵，有意思……
up
up
movingboy2 2003-08-20
- 打赏
- 举报
SydPink(呜噜~呜噜) 的方法是好方法（不需要自己写try..except..end），不过还是要稍微修正一下：
当YourStr输入为‘0’时，算法出错
当YourStr输入为‘0’时，算法出错
OO_is_just_P 2003-08-20
- 打赏
- 举报
OK
SydPink 2003-08-20
- 打赏
- 举报
这个咯
const
def=0;
......
var
i:integer;
.....
i:=StrToIntDef(YourStr,def);
if i<>0 then 全是数字
const
def=0;
......
var
i:integer;
.....
i:=StrToIntDef(YourStr,def);
if i<>0 then 全是数字
XXSingle 2003-08-20
- 打赏
- 举报
现成的函数没有，自己写一个就行了，上面很啦
timgreen 2003-08-20
- 打赏
- 举报
同意空间在线 的这些简单的自己写个function就行了
chenzf 2003-08-20
- 打赏
- 举报
up!
overtime 2003-08-20
- 打赏
- 举报
try
StrtoInt(Str)
Result:=True;
except
Result:=False;
end;
方法多的很关键在与人想
StrtoInt(Str)
Result:=True;
except
Result:=False;
end;
方法多的很关键在与人想
Spqk005 2003-08-20
- 打赏
- 举报
function IsNumeric(str: string): boolean;
begin
result := false;
if trim(str) = '.' then
result := false
else
begin
try
strtofloat(str);
result := true;
except
end;
end;
end;
自己写一个吧
begin
result := false;
if trim(str) = '.' then
result := false
else
begin
try
strtofloat(str);
result := true;
except
end;
end;
end;
自己写一个吧
江山易改 2003-08-20
- 打赏
- 举报
function Is_Numeric（SS :string ）: Boolean ;
var i :integer ;
begin
for i := 0 to Length(ss) do
begin
if ss[i] not in ['0'...'9' ] then
begin
Result := False ;
Exit ;
end ;
Result := true ;
end ;
end ;
var i :integer ;
begin
for i := 0 to Length(ss) do
begin
if ss[i] not in ['0'...'9' ] then
begin
Result := False ;
Exit ;
end ;
Result := true ;
end ;
end ;
freetide 2003-08-20
- 打赏
- 举报
up
