我现在的做法是:
procedure TDataModule1.qryinoutPostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if e.Message='由于将在索引、 主关键字、或关系中创建重复的值...' then
begin
MessageDlg('出现重复记录!',mtWarning, [mbOK], 0);
qryinout.Cancel;
Abort;
end;
但是e.message在不同语言的机器上肯定不同,how?