RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi中输入框不能输入初数字意外的字符串的函数(IsNumeric)

作者:admin 来源: 日期:2019/4/7 22:13:32 人气: 标签:

小函数贴上: 

function IsNumeric(strInPut:string):Boolean;
var
    Value:Double;
    Code:Integer;
begin
    Val(strInPut,Value,Code);
    result:=Code=0;
end;
--------------------- 
作者:紫松哥哥 
来源:CSDN 
原文:https://blog.csdn.net/zisongjia/article/details/53314221 
版权声明:本文为博主原创文章,转载请附上博文链接!

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料