[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, может кто подскажет в чем проблема?

[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;
...

[M.A.D.M.A.N.]

В uses добавить надо dialogs вроде.

[Alegun]

Да, bro M.A.D.M.A.N. прав, добавьте модуль Dialogs в uses формы.

[sandysman]

Спасиб помогло, но сообщения все равно толком не выводится, пишет sql ошибку. В еще такой вопрос, как при помощи Table сделать автоматический ввод пароли и логина БД? а то задалбливает постоянно вводить их)

[Mrak]

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

Спасиб помогло, но сообщения все равно толком не выводится, пишет sql ошибку. В еще такой вопрос, как при помощи Table сделать автоматический ввод пароли и логина БД? а то задалбливает постоянно вводить их)

сделай loginprompt = True
можно посмотреть про udl файлы