delphi - 陷阱键违规

Question

嗨，我正在尝试进行一些异常处理并拦截重复的字段值(键违规)错误。在我寻找解决方案的过程中，我看到了许多使用捕获所有错误的建议

try
(enter code)
except on E: EDatabaseError do
showmessage (Error message);
end; 

但我想专门针对关键违规做出响应，它使用使用 ADO 的访问表。

Answer 1

如果您想要处理的唯一错误是带有“重复值”消息的错误，那么这将起作用:

try
  // Your code
except
  on E: EOleException do
  begin
    // The better way is to find out what E.ErrorCode is
    // for this specific exception, and handle it instead
    // of checking the string - you didn't provide the
    // ErrorCode, though.
    // If E.ErrorCode = <whatever> then
    //
    if Pos('duplicate value', E.Message) > 0 then
      // You've got a duplicate with the message above
      // Do whatever handles it
    else
      raise;
  end;
  // If you want to handle other exception types (eg., EDataBaseError),
  // you can do so here:
  //  on E: EDataBaseError do
  //    HandleDBError;
end;