为什么不捕获异常？

Question

注：query : 是TAdoQuery组件。
CS ： 为一个无效的连接字符串。try
      query.ConnectionString:=cs;
      query.Active:=true;
except
      On E:EOleException do  ShowMessage('连接无效');///执行到query.action:=true ;就出错了。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    ADOQuery1.ConnectionString := '';
    ADOQuery1.Active := True;
  except
    on E: EDatabaseError do ShowMessage(E.Message);
  end;
end;

Answer 2

//调试信息已经告诉你，这个触发的EDatabaseError异常
Project Project1.exe raised exception class ＥＤａｔａｂａｓｅＥｒｒｏｒ with message 'Missing Connection or ConnectionString'. Process stopped. Use Step or Run to continue.

Answer 3

如果想在调试过程中捕获也是有办法的
tools->debugger options->最下面的integrated debuggin前面的勾去掉
就能显示你的错误了

Answer 4

///执行到query.action:=true ;就出错了。
**********************************************************
注意（好好看看）：
   应为：On E:EDatabaseError do  ShowMessage('连接无效');
*************************************************************这是正常状况，因为cs为一个无效的连接字符串！！
出错，是因为delphi捕捉到了异常！我想楼主一定再delphi调试环境下运行软件；如果再delphi环境外运行，你就只会看到“连接无效”的对话框了，系统的出错对话框已被应用程序屏蔽掉了！

Answer 5

tools->debugger options->最下面的integrated debuggin前面的勾去掉