一个问题求指教

ljjphysics 2011-05-11 03:24:28
try
DM.ADOConnection1.Close;
DM.ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password='
+ QuotedStr(edtPassword.Text) + ';Persist Security Info=True;User ID='
+ QuotedStr(cbbName.Text) + ';Initial Catalog=Depot;Data Source=' +
QuotedStr(cbbIP.Text);

DM.ADOConnection1.Open;
except
Application.MessageBox(pchar('Á¬½Ó³ö´í'),'¾¯¸æ',MB_OK+MB_ICONWARNING);
exit;
end;

为什么程序运行时产生异常了而没有运行 我的异常处理模块?
...全文
89 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
山东蓝鸟贵薪 2011-05-17
  • 打赏
  • 举报
回复
Application.MessageBox(pchar('Á¬½Ó³ö´í'),'¾¯¸æ',MB_OK+MB_ICONWARNING);
怎么有“乱码”呀》》》》》》》》》》
newfang 2011-05-11
  • 打赏
  • 举报
回复
如果在delphi环境内运行,程序会先报错,然后F8继续时才会弹出messagebox。

直接运行exe就好了。
madyak 2011-05-11
  • 打赏
  • 举报
回复
你要确认异常发生在try之前还是在try之后。
aaron6966 2011-05-11
  • 打赏
  • 举报
回复
确定是这段代码出的异常吗?异常提示是什么?

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧