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 xe6 取得app自己的版本号(横跨4个平台)

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi 文本转成图片

Delphi 创建文件夹并打开

orangeui作者开源作品

Delphi 根据文件路径获取文件名

Delphi 10.3 断点调试相关快捷键

Delphi android实例-退出程序(xe8+小米2)

Delphi循环遍历同类控件或所有控件

Delphi区分汉字和字母的函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...