Советы по Delphi


              

Перехват исключений базы данных


    Try
Tabl.Post; Except
Begin On
EDatabaseError do ShowMessage('Не могу отправить данные (выполнить Post)'); (Sender AS TDBEdit).SetFocus; End; {Begin} End, {Try}

Я осуществляю синтаксический разбор Error и вновь генерирую исключение (передаю по иерархии следующему обработчику объектов исключительных ситуаций), если я больше не хочу иметь с ним дела. Если использовать:

    On E : EDatabaseError do...

то можно получить значение E.Error. Реально, имя свойства с текстом ошибки должно быть похоже на что-то типа E.Message (уточните в электронной справке).

    On EDatabaseError do begin
ShowMessage('Не могу отправить данные'); Edit1.setFocus; end;

[001672]



Содержание  Назад  Вперед