Секреты Перевызова Объектов Исключений в Delphi

Delphi , Синтаксис , Ошибки и Исключения

При работе с исключениями в Delphi разработчики иногда сталкиваются с ситуацией, когда изменённые свойства объекта исключения теряются при его перевызове. В данной статье мы рассмотрим эту проблему на примере перевызова исключений в блоке except, а также предложим решение, основанное на понимании механизма работы объектов исключений в Delphi.

Проблема с Перевызовом Исключений

Разработчики, использующие Delphi для создания приложений, иногда сталкиваются с ситуацией, когда после изменения свойств объекта исключения, например, свойства Message, при перевызове исключения (raise) изменения теряются, и объект возвращается в исходное состояние с оригинальным сообщением. Это может быть неприятным сюрпризом, особенно если разработчик хочет сохранить исходное сообщение об ошибке, добавив к нему дополнительную информацию.

Пример кода, иллюстрирующий проблему:

var a: Integer;
begin
  try
    a := 0;
    Label1.Caption := IntToStr(100 div a);
  except
    on e: Exception do
    begin
      e.Message := 'Extra Info Plus the original : ' + e.Message;
      raise;
    end;
  end;
end;

Анализ Проблемы

Проблема связана с тем, что при перевызове некоторых исключений, которые генерируются операционной системой (например, исключение деления на ноль), изменённые свойства объекта исключения не сохраняются. Это происходит из-за того, что при перевызове (raise) объект исключения, изменённый в Delphi, освобождается, и система восстанавливает исходное исключение с его оригинальными свойствами.

Подтверждённый Ответ

В коде модуля System.pas есть специальная обработка для не-Delphi исключений:

// Код из модуля System.pas, отвечающий за перевызов исключений
// (упрощённый для понимания)
MOV     EAX,[EDX].TRaiseFrame.ExceptionRecord
AND     [EAX].TExceptionRecord.ExceptionFlags,NOT cUnwinding
CMP     [EAX].TExceptionRecord.ExceptionCode,cDelphiException
JE      @@delphiException
MOV     EAX,[EDX].TRaiseFrame.ExceptObject
CALL    TObject.Free
CALL    NotifyReRaise

Если исключение не является Delphi-объектом, то он освобождается, и система восстанавливает оригинальное исключение без изменений.

Альтернативное Решение

Чтобы сохранить изменения в объекте исключения, можно использовать следующий подход:

except
  on E: Exception do
  begin
    E := Exception(ExceptObject.Create(nil)); // Создаём новый объект исключения
    E.Message := '(Extra info) ' + E.Message;
    AcquireExceptionObject(E);
    raise E; // Перевызываем исключение с новым объектом
  end;
end;

Таким образом, мы создаём новый объект исключения и перевызываем его, сохраняя все изменения.

Заключение

При работе с исключениями в Delphi важно понимать, что не все объекты исключений ведут себя одинаково. Для сохранения изменений в объектах исключений при перевызове, необходимо создать новый объект исключения, который будет содержать все необходимые изменения. Это позволит сохранить дополнительную информацию, даже если исходное исключение было сгенерировано операционной системой.

Надеемся, что эта информация поможет вам избежать типичных ошибок при работе с исключениями в Delphi и сделает ваш код более надёжным и информативным.

Создано по материалам из источника по ссылке.

В статье рассматривается проблема потери изменений свойств объекта исключения при его перевызове в Delphi и предлагается решение для сохранения изменений.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ошибки и Исключения ::