Question

delphi中有没有判断一个字符串是不是数字的

Answer 1

function IfNumber(Text: string): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := 1 to Length(Text) do          
  begin
    if Pos(Text[I], '0123456789') = 0 then
      Exit;
  end;
  Result := True;
end;

返回真就是数字了。