Создание Независимых Копий Динамических Массивов Классов в Delphi

Delphi , Синтаксис , Массивы

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

Проблема

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

Пример кода, демонстрирующего проблему:

type
  TTestArray = array of TMyType; // TMyType - это класс
var
  X, Y, Z: TTestArray;
begin
  SetLength(X, 1); // Создание первого массива
  X[0].testString := 'Test Y';
  Y := Copy(X);
  X[0].testString := 'Test Z'; // Изменение значения в первом массиве
  Z := Copy(X);
  X[0].testString := 'Test X';
end;

По завершении данного кода, ожидается, что массивы X, Y и Z будут содержать разные значения в поле testString. Однако, из-за описанной проблемы, все три массива будут содержать одно и то же значение, так как ссылаются на одни и те же объекты.

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

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

Пример функции CopyMyTypeArray:

function CopyMyTypeArray(ASource: TTestArray): TTestArray;
var
  newObject: TMyType;
begin
  SetLength(Result, Length(ASource));
  for var cntr := Low(ASource) to High(ASource) do
  begin
    newObject := TMyType.Create;
    newObject.testString := ASource[cntr].testString;
    Result[cntr] := newObject;
  end;
end;

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

Заключение

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

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

В статье рассматривается проблема создания независимых копий динамических массивов объектов классов в среде разработки Delphi, которая возникает из-за копирования ссылок вместо самих объектов.

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

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

:: Главная :: Массивы ::