var
  i: integer;
begin
  result := true;
  for i := 1 to Length(s) do
    if not (s[i] in ['0'..'9']) then
    begin
      result := false;
      break;
   end;
end;

解决方案 »

  1.   

    怎样判断字符串是不是都由数字组成?
    怎样将字符串中的一个字符付给一个char变量?
    function StrIsNum(s:string) : boolean
    var
      i : integer;
      c : char;
    begin
      result := true;
      for i := 1 to Length(s) do
      begin
        c := s[i];
        if (c>'9') or (c<'0') then
        begin
          result := false;
          break;
        end;
      end;
    end;怎么在程序执行的过程中随时停止它? 
    Application.Terminate;