Delphi 如何检查字符串是否为数字


本文整理自网络,侵删。

 
function IsNumber(pcString: PChar): Boolean;
begin
  Result := False;
  while pcString^ <> #0 do // 0 indicates the end of a PChar string
    if not (pcString^ in ['0'..'9']) then
      Exit;
    Inc(pcString);
  end;
  Result := True;
end;

相关阅读 >>

Delphi+sql数据库增加,删除,修改,查询操作

Delphi版内存共享

Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi xe增强的rtti妙用--动态创建包中的窗口类

Delphi qq尾巴病毒的编写

Delphi如何检测form的移动和调整尺寸事件

Delphi 调用极光推送服务端http api实例

Delphi 程序启动后隐藏窗体和任务栏

Delphi memo1文本搜索并高亮

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



打赏

取消

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

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

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

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

评论

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

    暂无评论...