同上

解决方案 »

  1.   

    try
    {
    StrToInt
    }
    __finally
    {
    not
    }
      

  2.   

    楼上说的以呀,可以STRTOINT,如果转换不发生转换错误的话那就可以
      

  3.   

    因该用try..excepttry
      StrToInt(Edit1.Text);
    except
      on EConvertError do ShowMessage('请输入数字')
    end;要是用finally的话,不管怎么样都是会执行finally..end之间的语句的。
      

  4.   

    try
      StrToInt(Edit1.Text);
    except
      on EConvertError do ShowMessage('请输入数字')
    end;
      

  5.   

    try
      StrToInt(Edit1.Text);
    except
      on EConvertError do ShowMessage('请输入数字')
    end;
      

  6.   

    try
        strtoint('asdf');
      except
        MessageBox(handle, '非整型字符串!', '错误信息', MB_OK + MB_ICONERROR);
      end;
      

  7.   

    在调试状态下不行,直接执行生成的EXE文件可以的
      

  8.   

    如果正确将不会弹出警告
    try
        strtoint('123');
      except
        MessageBox(handle, '非整型字符串!', '错误信息', MB_OK + MB_ICONERROR);
      end;
    错误将弹出:try
        strtoint('1fad');
      except
        MessageBox(handle, '非整型字符串!', '错误信息', MB_OK + MB_ICONERROR);
      end;