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过程类型/过程类型学习

Delphi 中string字符串转换byte[]字节数组

Delphi listview 排序功能

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

Delphi获取系统安全软件信息

Delphi unigui确认对话框

Delphi整理一（基础知识）

Delphi 获取系统日期时间

Delphi stringgrid行列的增加和删除

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

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

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