[Mrak]

Сообщение от sandysman

Все здравствуйте, не могу допереть как обработать ошибку на удаление элемента в таблице, пишу так

Код:

procedure TDM.Table1DeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
try
Table1.Delete;
except
on E: Exception do begin
            ShowMessage ('Ошибка удаления'+E.Message);
            exit;
                    end

end;
end;

компилятор ругается на showmessage, может кто подскажет в чем проблема?

хз. у меня вот так - работает)

Код:

...
except
    on E : Exception do
    begin
      progressbar1.State:=pbsError;
      messageDlg('Ошибка!'+#13+E.Message, mtError, [mbOK], 0);
      exit;
    end;
...