Объединение списков TObjectList в Delphi без явного перебора и метода Assign

Delphi , Компоненты и Классы , Списки

Объединение списков TObjectList в Delphi

Иногда в процессе разработки на языке программирования Pascal с использованием среды Delphi возникает необходимость объединить два списка объектов в один. Вопрос, поднятый пользователем, заключается в том, что имеются два списка объектов одного типа TObjectList<MyClass>, и требуется их конкатенация в новый список, при этом первый список должен скопироваться без изменений, за ним должен следовать второй список в обратном порядке. Пользователь столкнулся с проблемой отсутствия метода Assign у TObjectList, который мог бы позволить выполнить эту задачу без явного перебора элементов списков.

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

Современные версии Delphi предоставляют возможность использовать метод AddRange, который позволяет добавить все элементы одного списка в другой без необходимости перебора элементов вручную. Для корректной работы этого метода необходимо установить свойство OwnsObjects в False, чтобы избежать двойного освобождения объектов.

Пример кода, демонстрирующего объединение двух списков TObjectList<TPerson>:

var
  L1, L2, LRes: TObjectList<TPerson>;
  Item: TPerson;
...
L1 := TObjectList<TPerson>.Create();
try
  L2 := TObjectList<TPerson>.Create();
  try
    LRes := TObjectList<TPerson>.Create();
    try
      L1.Add(TPerson.Create('aa', 'AA'));
      L1.Add(TPerson.Create('bb', 'BB'));

      L2.Add(TPerson.Create('xx', 'XX'));
      L2.Add(TPerson.Create('yy', 'YY'));

      L2.Reverse;

      LRes.OwnsObjects := False;
      LRes.AddRange(L1);
      LRes.AddRange(L2);

      for Item in LRes do
      begin
        OutputWriteLine(Item.FirstName + ' ' + Item.LastName);
      end;
    finally
      LRes.Free;
    end;
  finally
    L2.Free;
  end;
finally
  L1.Free;
end;

Важные замечания

Обратите внимание, что метод AddRange доступен только в обобщенной версии TObjectList, поэтому он может не быть доступен в более старых версиях Delphi, таких как 2006 или 2007. Если вы используете старую версию, вам придется воспользоваться циклом для добавления всех элементов.

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

В заключение, для объединения списков TObjectList в Delphi без явного перебора элементов и использования метода Assign, рекомендуется использовать метод AddRange, установив свойство OwnsObjects в False. Это позволит эффективно и быстро конкатенировать списки, не затрагивая производительность за счет избыточных операций.

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

Вопрос пользователя связан с объединить два списка объектов `TObjectList` в Delphi, скопировав один без изменений и добавив второй в обратном порядке, без использования несуществующего метода `Assign`, и предлагается использовать метод `AddRange`.

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

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

:: Главная :: Списки ::