【求助】如何处理出错

Question

如果一条sql语句不正确。但我一样用adoquery.open或adoquery.execsql执行。
很明显会出错。但我想返回的出错信息是我预先设定的。
try
  adoquery1.open
except
  showmessage('请检查输入是否正确！');
end;//?????????????????????是否这样写??????????????

Answer 1

我以前是这么写的，不过如果真有错误好像也执行不到except里面

Answer 2

是啊，好像真的出错也执行不到except里面!
但我希望返回的出错信息是我预先设定的。
那该怎么改呢？

Answer 3

你要取得数据库返回来的错误代码（ErrorCode）然后再根据不同的代码进行类似“汉化”的处理。GetLastError（）

Answer 4

写的是对的，如果想自定义错误，那么就要写异常处理过程了。Delphi专门又提供这类处理机制的:-)

Answer 5

customException = class(Exception)
  ……

Answer 6

//假如 在这之前出错了那就将他们也放到try 里面
try
{
   //操作
}
catch (EOleException *e){
//假如没有到catch块里面那就是抛出的异常类不是EOleException类，你调试程序时，
会弹出一个对话框，里面清楚的有抛出的异常类的名称和信息，然后照着改就ok le
}

Answer 7

不要编译运行,直接点击.exe文件运行,你就可以看到了