Удаление объектов по интерфейсу: практическое руководство для разработчиков на Delphi

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

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

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

Исходный код содержит обобщенный класс TMyList<T: IFoo>, который предполагает наличие функции Remove для удаления элементов, поддерживающих интерфейс, отличный от типа T. Однако, при попытке использовать функцию Supports для проверки поддержки интерфейса IBar, возникает ошибка E2250, указывающая на то, что нет перегруженной версии Supports, которая могла бы быть вызвана с текущими аргументами.

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

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

Пример определения интерфейсов с GUID:

type
  IFoo = interface
    ['{93863A49-5014-4AE5-A7CF-F3F2E044CE57}']
    // Описание методов интерфейса
  end;

  IBar = interface(IFoo)
    ['{88888888-5014-4AE5-A7CF-F3F2E044CE57}']
    // Описание методов интерфейса
  end;

Для использования Supports с GUID, необходимо изменить код следующим образом:

uses
  System.TypInfo;

procedure TMyList<T>.Remove<I>();
begin
  if Supports(Item, GetTypeData(TypeInfo(I))^.GUID) then Remove(Item);
  // Остальной код функции
end;

В данном случае, GetTypeData(TypeInfo(I))^.GUID возвращает GUID интерфейса I, который затем используется в функции Supports.

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

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

Supports(myObject, IMyInterface, Intf);

где myObject - это объект, который проверяется на поддержку интерфейса IMyInterface, и если объект поддерживает интерфейс, то ссылка на этот интерфейс возвращается в переменной Intf.

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

Для корректной работы с обобщенными параметрами, поддерживающими интерфейсы, необходимо определить GUID для каждого интерфейса. Затем, в функции Remove, следует использовать GUID для проверки поддержки интерфейса объектом.

type
  IBar = interface
    ['{08C764E8-3EF4-42A7-94B7-8D1C5371DF25}']
  end;

  IFoo = interface
    ['{30B9440D-A012-4C7D-8422-A80D7E18F4E5}']
  end;

procedure TMyList<T>.Remove<I>();
begin
  if Supports(Item, GetTypeData(TypeInfo(I))^.GUID) then Remove(Item);
  // Дополнительная логика удаления
end;

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

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

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

Вопрос связан с разработкой на Delphi: требуется удалить элементы из списка, поддерживающие определенный интерфейс, и возникла проблема с функцией `Supports` при работе с обобщенными классами.

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

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

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