如题。

解决方案 »

  1.   

    写在try里 
    try
    StrToFloat(s)
    except
     ShowMessage('不行');
    end;
      

  2.   

    To:
    vividw(vividw)这样我是在7.0环境下运行的,我这样写了它还是要先崩异常啊。
    还有别的方法吗?
      

  3.   

    这个异常运行时不产生的
    run without debugging
     shift +ctrl+F9运行
      

  4.   

    function IsFloat(const s: String): Boolean;
    var
      I: Real;
      E: Integer;
    begin
      Val(s, I, E);
      Result := E = 0;
      E := Trunc( I );
    end;
      

  5.   

    To:
    vividw(vividw)谢谢了。。