Устранение дублирования кода: паттерны проектирования для несовместимых объектов в Delphi

Delphi , Программа и Интерфейс , Интерфейс

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

Оригинальный интерфейс

Вам предоставлен интерфейс IColored, который гарантирует наличие функции getColor. У вас есть два объекта: Ferrari и RedApple, которые реализуют данный интерфейс одинаковым образом, но не могут наследовать общий класс.

TYPE
  IColored = INTERFACE
              FUNCTION getColor: TColor;
            END;

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

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

Решение проблемы

Один из способов избежать дублирования кода - использовать общую функцию, которая реализует необходимую логику, и затем просто вызывать эту функцию из методов каждого объекта.

FUNCTION CommonFunction: TColor;
BEGIN
  // Логика получения цвета
  Result := clRed; // Пример возвращаемого цвета
END;

TYPE
  TFerrari = CLASS(IColored)
             FUNCTION getColor: TColor; STATIC
             BEGIN
               Result := CommonFunction;
             END;
           END;

  TRedApple = CLASS(IColored)
              FUNCTION getColor: TColor; STATIC
              BEGIN
                Result := CommonFunction;
              END;
            END;

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

В контексте DRY (Don't Repeat Yourself) принципа, важно понимать, что полное устранение дублирования не всегда возможно или целесообразно. Иногда дублирование кода может быть оправдано, если изменение в одной реализации не влияет на другие.

Объектная агрегация

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

TYPE
  TAggregatedColorBehavior = CLASS
                             FUNCTION getColor: TColor;
                             // Реализация поведения
                           END;

  TFerrari = CLASS(IColored)
             FCB: TAggregatedColorBehavior;
             CONSTRUCTOR Create;
             BEGIN
               inherited Create;
               FCB := TAggregatedColorBehavior.Create;
             END;
             FUNCTION getColor: TColor; STATIC
             BEGIN
               Result := FCB.getColor;
             END;
           END;

  // Аналогично для TRedApple

Заключение

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

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

Устранение дублирования кода в Delphi для несовместимых объектов, реализующих общий интерфейс, с использованием паттернов проектирования.

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

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

:: Главная :: Интерфейс ::