请问如何获取BDE返回的错误号?

yourkith 2000-06-05 04:09:00
...全文
77 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ymxxm 2000-06-06
  • 打赏
  • 举报
回复
try
except
on ebdeengineError do
//处理Bde 错误代码
end;
supershan 2000-06-06
  • 打赏
  • 举报
回复
demo;
If ErrorClass = 'EDBEngineError' Then
Begin
If Pos('duplicate key', Msg) <> 0 Then
Begin
ShowMessage('关键字重复!');
Exit;
End
else if...
ymxxm 2000-06-06
  • 打赏
  • 举报
回复
Try
Exccept
on e:exception do
if e is EbdeEngineError Then
with e as EbdeEngineError do
for i:=0 to errors.errorCount Do
showmessage(Inttostr(erors[i].errorcode));
ymxxm 2000-06-06
  • 打赏
  • 举报
回复
Try
Exccept
on e:exception do
if e is EbdeEngineError Then
with e as EbdeEngineError do
for i:=0 to errors.errorCount Do
showmessage(Inttostr(erors[i].errorcode));
End;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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