try
// you do
execpt //错误处理
end
// you do
execpt //错误处理
end
解决方案 »
- delphi webbrowser载入网页如何设置自己载入的cookies
- 字段类型为image的数据从sql导入到access中null变成not null
- 关于DELPHI7的问题
- 请问:点击delphi程式的button按纽即能打开一个default.asp文件应如何实现?
- 请教高手 在线等待
- 关于delphi实现像IE中查看菜单中可以控制IE有无状态栏。
- 打印的问题,为什么我用delphi的qrmemo打印memo的内容时,有些行对不齐??
- 请教一个关于treeview的问题,谢谢!!
- 黑掉它,最好把建站的人也杀了!
- ADODataSet1中怎样计算一个字段是值
- 急急急!!!!!谁能给我打印和预览DBGrid表面的代码?我将给他送分!!!!
- 用ado连接access数据库 的问题!!
在Form中加一个处理异常的方法:
procedure HandleException(Sender: TObject; E: Exception);
加一个变量:
FOldExceptHandler: TExceptionEvent;
在FormActivate事件中这样写:
FOldExceptHandler := Application.OnException;
Application.OnException := HandleException;
在FormDeactivate事件中这样写:
Application.OnException := FOldExceptHandler;在HandleException方法的实现中判断是DBEdit的异常,简单地,Exception is EDataBaseError,然后处理它,否则如果FOldExceptHandler不为nil,传给它。
const eMaxValErr=9731;
...
procedure TmyDm.buTableEditError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
if (E is EDBEngineError) then
if (E as EDBEngineError).Errors[0].Errorcode=eMaxValErr then
begin
Showmessage('MaxValErr');//testing
Abort;
end;
end;
同上测试后,异常依旧。
agui讲的满有道理,我想回去试试。
异常如下:
Project **.exe raised exception class EDatabaseError with messaage '1222222222' is not a valid value for field 'Id'.The allowed range is -32768 to 32767.
按确定后,才出现自己的异常代码。
你直接运行EXE文件就可以的了.OK!