本文整理自网络,侵删。
小函数贴上:
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 android实例-退出程序(xe8+小米2)
更多相关阅读请进入《Delphi》频道 >>