本文整理自网络,侵删。
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 types of actual and formal var parameters must be identical
Delphi serial number of an usb flash drive 获取u盘硬件序列号
Delphi sysutils.strcopy、sysutils.strecopy
Delphi winapi: movewindow - 改变窗口的位置与大小
Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值
更多相关阅读请进入《Delphi》频道 >>