procedure Tinput.Edit7Exit(Sender: TObject);
begin
  try
  strtofloat(edit7.Text);
  except
  begin
  application.MessageBox('输入的数据不合法','提示',mb_iconinformation+mb_ok);
   edit7.SetFocus;
  end;
  end;
end;
在编程环境中运行时,输入非法数据总是出错,而直接运行项目.exe文件后程序执行正常?这是为什么??

解决方案 »

  1.   

    本来就是错误处理啊,在调试环境下当然会显示错误了,而编译成exe出现错误就跳到except中运行不会出现提示
      

  2.   

    Tools->Debugger Options->Language Exceptions->Stop On Delphi Exceptions
    这个属性设置可以让你的程序在调试的时候是否跳到Except中
      

  3.   

    procedure Tinput.Edit7Exit(Sender: TObject);
    begin
      try
        Strtofloat(edit7.Text);
      except
         application.MessageBox('输入的数据不合法','提示',mb_iconinformation+mb_ok);
         edit7.SetFocus;
      end;
    end;不可能.如果输入的数据里包括字母,一定会提示出错.
      

  4.   

    我想知道为什么,刚学习delphi什么都不懂!谢谢大家帮助!来者有分
      

  5.   

    try...except的用法是:试着去执行try下面的语句,如果出错的话,将执行except下面的语句。
    try...finally的用法是:试着去执行try下面的语句,不管出不出错,都将执行finally下面的语句。