Delphi版 IsNumeric 函数

74 阅读 0 评论 49 点赞

我是靠谱客的博主大力啤酒，最近开发中收集的这篇文章主要介绍Delphi版 IsNumeric 函数，觉得挺不错的，现在分享给大家，希望可以做个参考。

今天在改公司以前一个软件，代码中有一个地方需要判断一个字符串存储的是不是一个数字，自然让我想起VB的IsNumeric函数。由于是Delphi,所以只有另外“打造”了。。

小函数贴上：

function IsNumeric(strInPut:string):Boolean;
var
    Value:Double;
    Code:Integer;
begin
    Val(strInPut,Value,Code);
    result:=Code=0;
end;

转载于:https://www.cnblogs.com/forads/archive/2009/05/23/2161172.html

以上就是大力啤酒为你收集整理的Delphi版 IsNumeric 函数的全部内容，希望文章能够帮你解决Delphi版 IsNumeric 函数所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。