delphi 判断一个字符串是否只由数字组成

function IsNum(str: string): Boolean;

var

i: Integer;

begin

Result := True;

for i := 1 to Length(str) do

if not (str[i] in ['0'..'9']) then

begin

Result := False;

Break;

end;

end;