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

Delphi , Технологии , Объектно-ориентированное программирование

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

Проблема, с которой сталкивается разработчик, заключается в создании узла с использованием обобщенной фабрики TNodeFactory, которая должна возвращать объект, реализующий интерфейс INodeInterface. Однако, в текущей реализации функции CreateNode возникает ошибка компиляции, так как NodeClass имеет тип TClass, который не совместим с интерфейсом INodeInterface.

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

Функция CreateNode использует NodeClass, полученный из списка зарегистрированных типов узлов, и пытается создать объект этого класса. Однако, поскольку NodeClass является TClass, созданный объект будет иметь тип TObject, а не INodeInterface. Это приводит к ошибке при попытке приведения типа.

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

Для решения этой проблемы можно использовать класс TInterfacedObject, который позволяет создать объект, реализующий интерфейс. Следует изменить реализацию функции CreateNode следующим образом:

function TNodeFactory<T>.CreateNode(ID: Integer): INodeInterface<T>;
var
  RegisteredType: TRegisteredNodeType;
begin
  for RegisteredType in FNodeTypeList do
    if (RegisteredType.ID = ID) then
      Exit(TInterfacedObject(RegisteredType.NodeClass).Create as INodeInterface<T>);
  raise EInvalidNodeType.Create('No node type with ID ' + IntToStr(ID) + ' registered');
end;

Или же, если используется регистрация типов через TInterfacedObjectClass, можно изменить определение типа и функцию регистрации:

type
  TInterfacedObjectClass = class of TInterfacedObject;
...
procedure TNodeFactory<T>.RegisterNodeType(ID: Integer; NodeClass: TInterfacedObjectClass);
begin
  // Регистрация типа
end;
...
function TNodeFactory<T>.CreateNode(ID: Integer): INodeInterface<T>;
var
  RegisteredType: TRegisteredNodeType;
begin
  for RegisteredType in FNodeTypeList do
    if (RegisteredType.ID = ID) then
      Exit(RegisteredType.NodeClass.Create as INodeInterface<T>);
  raise EInvalidNodeType.Create('No node type with ID ' + IntToStr(ID) + ' registered');
end;

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

Альтернативно, можно использовать функцию Supports из модуля SysUtils, которая позволяет извлечь интерфейс из объекта. Также возможно использование функции QueryInterface, которая возвращает ссылку на запрошенный интерфейс, если объект его реализует.

Заключение

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

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

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

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

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

:: Главная :: Объектно-ориентированное программирование ::