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

本文整理自网络，侵删。

 小函数贴上： 

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 
版权声明：本文为博主原创文章，转载请附上博文链接！
 

相关阅读 >>

Delphi setformfullscreen()窗体全屏显示

Delphi 构建时间 -encodedatetime … tryencodedatetime

Delphi 获取系统当前活动窗口的句柄及对应的进程名

Delphi使用xmlhttp获取时间

Delphi.about.com一个钩子的实现代码

Delphi sqlite incomplete input 错误

Delphi 以二进制方式读取图片保存到string

Delphi编程之关闭所有qq进程

Delphi 批量删除同类文件的函数

Delphi xe filesizebyname 要引用哪些文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中输入框不能输入初数字意外的字符串的函数（IsNumeric）