频道分类

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

作者:admin 来源: 日期:2020/9/15 14:40:35 人气: 标签:

 
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;