procedure TForm1.Edit1Exit(Sender: TObject);
begin
     try
         StrtoFloat(Edit1.Text);
     except
       Begin
         Application.MessageBox('请输入合法的数字!','错误:',MB_OK);
         Edit1.SetFocus;
       end;
     end;
end;

解决方案 »

  1.   

    yansea(思宏) :我写的这代码在运行时出错啊!!!!!!!!
      

  2.   

    什么运行时出错?你可以在except里用on e:Exception do
      showmessage(e.message);
    看看错误是什么
      

  3.   

    什么运行时出错?你可以在except里用on e:Exception do
      showmessage(e.message);
    看看错误是什么
      

  4.   

    哈, 如果你是在Delphi编程环境下调试程序时运行的,那么程序会在每个异常处中断。这并不意味着你的程序写的有问题。
    单独运行生成的*.exe文件,你会发现一切如你所愿。
    上述问题可能可以在Delphi中修改编译属性得到改变。
      

  5.   

    你是在delphi开发环境下测试的吧 
    只要有异常,程序会跟踪到异常的那一个会给你错误的信息哦:) 
    你单独执行那个生成的exe,看看,报错信息就是你所想要的哦