怎么覆盖缺省的异常处理

[westhillchen]

谢谢

[wyb716]

try
except
on e:exception do
begin
//进行你自己的异常处理
end;
end;

[zjybestzjybest]

ApplicationEvents1: TApplicationEvents;
procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);

[robbot]

procedure TData.LineDataPostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
E.CreateFmt('%s'+#13+'%s',['无法保存记录，请检查！',E.Message]);
end;

procedure TData.BdSbqxDataEditError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
E.CreateFmt('%s'+#13+'%s',['当前编辑出错，请检查！',E.Message]);
end;

procedure TData.BdSbqxDataDeleteError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
E.CreateFmt('%s',['数据无法删除，请检查！']);//也可以去掉E.Message
end;
//试一下就知道了