Структурирование кода в Delphi: ясное обозначение реализации интерфейсов без комментариев

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

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

Проблема

Рассмотрим интерфейсы IFirst и ISecond, которые реализует класс TFirstSecond. Вопрос заключается в том, как ясно обозначить, что метод GetStuff реализует интерфейс IFirst, а метод GetOtherStuff - интерфейс ISecond.

IFirst = interface
  function GetStuff: Integer;
end;

ISecond = interface
  function GetOtherStuff: Integer;
end;

TFirstSecond = class(TInterfacedObject, IFirst, ISecond)
private
  function GetStuff: Integer; // реализация IFirst
  function GetOtherStuff: Integer; // реализация ISecond
end;

Подходы к решению

1. Использование метода делегирования: Можно определить свойства в классе TFirstSecond для каждого интерфейса и делегировать реализацию в экземпляры, содержащиеся внутри класса TFirstSecond. Это позволит четко разделить реализации.
2. Использование методов разрешения вызовов: Можно использовать методы разрешения вызовов для явного указания на реализацию методов интерфейсов.

TFirstSecond = class(TInterfacedObject, IFirst, ISecond)
private
  function GetStuff: Integer;
  function GetOtherStuff: Integer;
public
  function IFirst.GetStuff = GetStuff;
  function ISecond.GetOtherStuff = GetOtherStuff;
end;

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

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

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

type
  TFirstLogic = class(TInterfacedObject, IFirst)
    function GetStuff: Integer;
  end;

  TSecondLogic = class(TInterfacedObject, ISecond)
    function GetOtherStuff: Integer;
  end;

  TFirstSecond = class(TInterfacedObject, IFirst, ISecond)
  private
    FFirst: TFirstLogic;
    FSecond: TSecondLogic;
  protected
    property First: TFirstLogic read FFirst implements IFirst;
    property Second: TSecondLogic read FSecond implements ISecond;
  public
    constructor Create;
    destructor Destroy; override;
  end;

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

Заключение

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

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

Вопрос касается структурирования кода в Delphi для ясного обозначения реализации интерфейсов без использования комментариев.

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

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

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