频道分类

delphi中判断字符串是否为数字

作者:admin 来源: 日期:2020/9/15 17:16:32 人气: 标签:

 
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 如何检查字符串是否为数字下一篇:没有资料