Решение проблемы реализации методов из двух интерфейсов в Delphi: пример с репозиториями для котов и собак

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

Вопрос, поднятый пользователем, заключается в проблеме реализации методов из двух интерфейсов, имеющих одинаковые имена, в классе Delphi 10.4. Пользователь пытается создать класс TAnimalRepository, который будет реализовывать интерфейсы ICatRepository и IDogRepository, наследующиеся от базового интерфейса IRepositoryBase<T>. При попытке компиляции кода возникают ошибки, связанные с отсутствием реализации методов интерфейсов.

Описание проблемы

Пользователь столкнулся с трудностями при использовании метода разрешения в классе TAnimalRepository, который должен реализовать интерфейсы для работы с репозиториями котов и собак. В качестве базового интерфейса используется IRepositoryBase<T>, который определяет функцию GetAll. Для котов и собак определены специализированные интерфейсы ICatRepository и IDogRepository, наследующие базовый интерфейс и также содержащие функцию GetAll.

Пример кода

type
  IRepositoryBase<T> = interface
    ['{776B3383-AF6E-44F7-BF32-1ACCF9A6C964}']
    function GetAll(items: TList<T>; out errMsg: String): Boolean;
  end;

  TCat = class
  end;

  ICatRepository = interface(IRepositoryBase<TCat>)
    ['{C37CF989-E069-450B-8937-E46F6BFA66E9}']
    function GetAll(items: TList<TCat>; out errMsg: String): Boolean; // Не нужно дублировать базовый метод
  end;

  TDog = class
  end;

  IDogRepository = interface(IRepositoryBase<TDog>)
    ['{56B28463-0007-497E-8015-D794873328FF}']
    function GetAll(items: TList<TDog>; out errMsg: String): Boolean; // Аналогично, дублирование не требуется
  end;

  TAnimalRepository = class(TInterfacedObject, ICatRepository, IDogRepository)
  private
    function GetAllCats(items: TList<TCat>; out errMsg: String): Boolean;
    function GetAllDogs(items: TList<TDog>; out errMsg: String): Boolean;
  public
    // Реализация методов разрешения для интерфейсов
    function ICatRepository.GetAll: Boolean; stdcall; 
    function IDogRepository.GetAll: Boolean; stdcall;
  public
    // Перенаправление вызовов на соответствующие методы класса
    TAnimalRepository(ICatRepository).GetAll = GetAllCats;
    TAnimalRepository(IDogRepository).GetAll = GetAllDogs;
  end;

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

При попытке реализации методов интерфейсов с помощью метода разрешения, пользователь столкнулся с ошибками компиляции, так как в интерфейсах ICatRepository и IDogRepository были необоснованно дублированы функции GetAll, что приводило к конфликту с базовым интерфейсом IRepositoryBase<T>.

Подтвержденное решение

Удалив дублирование методов GetAll в интерфейсах ICatRepository и IDogRepository, пользователь сможет корректно реализовать класс TAnimalRepository, который будет использовать методы разрешения для перенаправления вызовов на реализации этих методов внутри класса.

Пример исправленного кода

type
  IRepositoryBase<T> = interface
    ['{776B3383-AF6E-44F7-BF32-1ACCF9A6C964}']
    function GetAll(items: TList<T>; out errMsg: string): Boolean;
  end;

  TCat = class
  end;

  ICatRepository = interface(IRepositoryBase<TCat>)
    ['{C37CF989-E069-450B-8937-E46F6BFA66E9}']
  end;

  TDog = class
  end;

  IDogRepository = interface(IRepositoryBase<TDog>)
    ['{56B28463-0007-497E-8015-D794873328FF}']
  end;

  TAnimalRepository = class(TInterfacedObject, ICatRepository, IDogRepository)
  private
    function GetAllCats(items: TList<TCat>; out errMsg: string): Boolean;
    function GetAllDogs(items: TList<TDog>; out errMsg: string): Boolean;
  public
    function ICatRepository.GetAll: Boolean; stdcall; 
    virtual = GetAllCats;
  function IDogRepository.GetAll: Boolean; stdcall;
    virtual = GetAllDogs;
  end;

Заключение

Проблема была успешно решена путем устранения избыточных объявлений методов в интерфейсах, которые пользователь пытался реализовать. Это позволило корректно использовать механизм методов разрешения в классе TAnimalRepository для работы с репозиториями котов и собак.

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

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

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

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

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