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/it201108/archive/2009/05/23/2148107.html

Delphi版 IsNumeric 函数相关推荐

Delphi 版的IIF函数
Delphi 版的IIF函数不少编程语言都有 IIF 函数,我们也可以构造自己的IIF函数: // ------------------------------------------------- ...
《Delphi 版 everything、光速搜索代码》关于获取文件全路径 GetFullFileName 函数的优化
<Delphi 版 everything.光速搜索代码>,文章中关于获取文件全路径的函数:GetFullFileName,有一个地方值得优化. 就是有多个文件,它们可能属于同一个目录. 譬 ...
[转载]《Delphi 版 everything、光速搜索代码》关于获取文件全路径 GetFullFileName 函数的优化...
Delphi 版 everything.光速搜索代码>,文章中关于获取文件全路径的函数:GetFullFileName,有一个地方值得优化. 就是有多个文件,它们可能属于同一个目录. 譬如 Sy ...
WinAPI【远程注入】利用远程线程注入DLLDelphi版
{ WinAPI[远程注入]利用远程线程注入DLLDelphi版} (okwary) 小叹的学习园地 ( SDK文档里是这样描述的:进程是一个正在运行的程序,它拥有自己的地址空间,拥有自己的 ...
NeHe的OpenGL教程7（Bang翻译Delphi版）－如何使用光源
NeHe的OpenGL教程7(Bang翻译Delphi版)-如何使用光源在这一课里,我将教会你如何用光源照亮立方体的六个面,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp prog ...
NeHe的OpenGL教程8（Bang翻译Delphi版）－如何制作立体透明效果
NeHe的OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果在这一课里,我将教会你如何制作立体透明效果,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp prog ...
OpenGL教程8（Bang翻译Delphi版）－如何制作立体透明效果 .
OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果在这一课里,我将教会你如何制作立体透明效果,如下图: 将下图放在应用程序data目录下,起名NeHe.bmp program l ...
Delphi 版 everything、光速搜索代码
近日没啥事情,研究了一下 everything.光速搜索原理.花了一个礼拜时间,终于搞定. 废话不多说,直接上代码: unit uMFTSearchFile; {dbyoung@sina.com201 ...
使用国密函数读取金税盘信息-Delphi 版
一.开发环境及工具上一篇文章,我们使用C++ 实现了航天版国密算法模块获取金税盘信息,请参阅上期文章. 本文将使用 Delphi 来实现,所示代码环境:Windows10 x64专业版(1904 ...

Delphi版 IsNumeric 函数

Delphi版 IsNumeric 函数相关推荐

最新文章

热门文章