Оптимизация обработки исключений в Delphi: избегаем дублирования кода

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

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

Проблема дублирования кода

Допустим, у нас есть следующий фрагмент кода:

try
  someProcedure();
except
  on E: Error1 do
    thisFunction(E);
  on E: Error2 do
    thisFunction(E);
  on E: Exception do
    thatFunction(E);
end;

Как видно из примера, для обработки Error1 и Error2 используется одна и та же функция thisFunction. Это приводит к дублированию кода, что неэффективно и увеличивает вероятность ошибок при будущих изменениях.

Возможные способы оптимизации

Идеальным решением было бы использовать синтаксис, позволяющий обработать несколько типов исключений одной строкой, например:

try
  someProcedure();
except
  on E: Error1, Error2 do
    thisFunction(E);
  on E: Exception do
    thatFunction(E);
end;

Однако, согласно документации Embarcadero, такого синтаксиса в Delphi нет. Это связано с тем, что в таком случае было бы неясно, какого типа будет переменная E.

Использование иерархии классов

Если у нас есть контроль над классами исключений, мы можем использовать иерархию классов, чтобы достичь желаемого эффекта. Например, если определить следующие классы:

type
  EScriptException = class(Exception);
  ESyntaxError = class(EScriptException);
  ERuntimeError = class(EScriptException);
    EDivByZeroError = class(ERuntimeError);
    EAverageOfEmptyList = class(ERuntimeError);

Тогда обработка исключений может быть представлена в следующем виде:

try
  // ...
except
  on E: ESyntaxError do
    HandleSyntaxError(E);
  on E: ERuntimeError do
    HandleRuntimeError(E);
end;

Здесь, если EScriptException является общим предком для ESyntaxError и ERuntimeError, мы можем обрабатывать оба типа исключений через их общий класс ERuntimeError.

Альтернативный подход

Если использование иерархии классов не представляется возможным или нелогичным, можно использовать проверку типа исключения внутри блока except:

try
  // ...
except
  on E: ESyntaxError do
    HandleSyntaxError(E);
  on E: Exception do
    if (E is EDivByZeroError) or (E is EAverageOfEmptyList) then
      HandleRuntimeError(E);
end;

Также можно поймать исключение базового класса Exception и получить полный программный контроль над обработкой:

try
  // ...
except
  on E: Exception do
    if E is ESyntaxError then
      HandleSyntaxError(E)
    else if (E is EDivByZeroError) or (E is EAverageOfEmptyList) then
      HandleRuntimeError(E)
    else
      raise;
end;

Заключение

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

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

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

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

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

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