Здрасте! В одной из тем приводили код по обработке дублирующейся записи в базе. Код ниже:
Код:
procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
ShowMessage('Такое имя уже есть');
Action := daAbort;
end;
Но этот код работает для всех исключений, которые вызывают ограничивания у таблиц.
Как нужно доработать код для обработки конкретной ошибки, а то что то я не пойму как это делать? И как их между собой различать?
Заранее спасиб.