本文整理自网络,侵删。
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 webbrowser1提取网页中的所有链接、点击第 n 个链接
Delphi formactivate与formshow事件有什么区别
Delphi几个进制相关的代码(hextoint、hextoasc)
Delphi fdconnection1 获取数据库总记录数
Delphi strutils.reversestring - 翻转字符串
更多相关阅读请进入《Delphi》频道 >>