Работа с генерализованными списками в Delphi: создание объектов без предварительного знания типов

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

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

Оригинальный заголовок:

Создание объекта для генерализованного списка объектов в Delphi

Описание проблемы (вопрос):

Пользователь пытается создать функцию в генерализованном списке, которая бы создавала новый объект заданного типа, не зная заранее, какого типа объекты будут добавляться в список. В качестве примера приводится генерализованный список TObjectList<TTypeA>, где TTypeA является классом, унаследованным от TObject. Пользователь хочет создать функцию, которая бы создавала новый объект типа TTypeA, но не знает, как это сделать.

Контекст и предложенные решения:

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

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

• Создание объекта напрямую через TTypeA.Create(...);.
• Использование свойства ClassType объекта, уже присутствующего в списке, для создания нового объекта.
• Создание дочернего класса списка, который знает о конструкторе генерализованного типа и может создавать объекты.
• Использование TCollection и TCollectionItem в качестве базовых классов для списка и элементов соответственно, что обеспечивает дополнительные возможности управления.

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

Пользователю предлагается просто создать новый объект и добавить его в список, если известно точное имя типа, например NewListObject := TTypeA.Create; MyList.Add(NewListObject);.

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

type
  TMyObjectList<T: class, constructor> = class(TObjectList<T>)
  public
    function NewObject: T; override;
  end;

function TMyObjectList<T>.NewObject: T;
begin
  Result := T.Create(nil);
end;

Однако это будет работать только в случае, если у типа есть параметризованный конструктор с именем Create.

Проблема с ограничением конструктора:

В оригинальном вопросе пользователя есть ограничение, что конструктор должен быть параметризованным как constructor. Это ограничение требует, что конструктор может быть вызван только внутри генерализованного класса для генерализованного типа.

Альтернативная альтернативная помощь:

TMyObjectList<T: constructor, TMyBaseObject> = class(TObjectList<T>)
  public
    function NewObj: T;
  end;

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

Вот подробный пример, показывающий, как можно преодолеть эту проблематику:

type
  TMyBaseObject = class(TObject)
  end;

  TMyObjectList<T: TMyBaseObject, constructor> = class(TObjectList<T>)
  public
    function CreateNew: T;
  protected
    procedure NewObject(Owner: TComponent); override;
  end;

{ TMyObjectList<T> }

function TMyObjectList<T>.CreateNew: T;
begin
  NewObject(nil);
  Result := Items[TObjectList<T>.Count - 1];
end;

procedure TMyObjectList<T>.NewObject(Owner: TComponent);
begin
  inherited NewObject(Owner);
  if TypeInfo(T).GetGUID <> TMyBaseObject.GetTypeInfo.GetGUID then
    raise Exception.CreateFmt('Type %s is not derived from TMyBaseObject', [TypeInfo(T).FullName]);
  inherited Create(Owner);
end;

Сводка:

• Если известно имя типа, создание объекта происходит через Create.
• Для универсальности следует использовать дочерний класс, который понимает конструкторы различных типов.
• Полезно учитывать опыт, полученный с TCollection и TCollectionItem для более глубокого понимания работы со списками в Delphi.

Рекомендация к действию:

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

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

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

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

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

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