Элегантная реализация интерфейсов без использования `Supports` в Delphi

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

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

Проблема

Разработчик столкнулся с необходимостью реализации интерфейсов для работы с записями в наборе данных в Delphi без использования обобщений. Существующий подход требует проверки поддержки интерфейса IBaseRecordCollection для объектов, реализующих интерфейсы типа IRecARecordCollection или IRecBRecordCollection, что не является элегантным решением.

Существующая реализация

Имеется базовый интерфейс IBaseRecordCollection, который включает методы для навигации по набору данных, а также специализированные интерфейсы IRecARecordCollection и IRecBRecordCollection, определяющие методы для получения записей соответствующих типов. Существует абстрактный класс TAbstractTypedRecordCollection, который реализует базовый интерфейс и содержит приватное свойство FCollection для хранения ссылки на другой объект, реализующий IBaseRecordCollection. Конкретные классы, такие как TRec1RecordCollection, наследуют TAbstractTypedRecordCollection и реализуют интерфейсы типа IRecARecordCollection.

Недостатки

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

Решение

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

Пример

type
  TRec1RecordCollection = class(TInterfacedObject, IBaseRecordCollection, IRecARecordCollection)
  private
    function GetRec: TRec1;
  public
    property Rec: TRec1 read GetRec;
  end;

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

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

В коде, представленном в вопросе, почти все сделано правильно. Однако, класс TRec1RecordCollection должен напрямую реализовывать оба интерфейса IBaseRecordCollection и IRecARecordCollection, чтобы избежать ошибок компиляции. Это позволит использовать объекты, реализующие эти интерфейсы, без необходимости в проверке поддержки интерфейса.

Заключение

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

Важно

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

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

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

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

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

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