Проблема потери данных при передаче объектов в Delphi: анализ и решения

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

Объект внутри другого объекта не сохраняется между единицами в Delphi

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

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

Рассмотрим типичную ситуацию, когда в главной форме приложения создается объект TProcedimento, который содержит список продуктов (объектов TItemProcedimento). Данные из списка ListView заполняют свойства объекта TItemProcedimento, который затем добавляется в коллекцию TObjectList внутри класса TProcedimento. После этого объект TProcedimento передается в другую единицу, где происходит работа с данными.

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

Контекст проблемы:

В коде главной формы видно, как происходит заполнение объекта TProcedimento данными из списка ListView. После этого вызывается метод DM.gravaProcedimento, который передает управление в другую единицу. В этой единице при итерации по коллекции продуктов обнаруживается, что идентификаторы объектов неверные.

Анализ кода:

// Главная форма
procedure TForm1.SBCadClick(Sender: TObject);
var
  Procedimento: TProcedimento;
  Produto: TItemProcedimento;
begin
  ...
  Procedimento := TProcedimento.Create;
  for item in LVItensProcedimento.Items do
  begin
    Produto := TItemProcedimento.Create;
    Produto.PRO_ID := item.Tag;
    // заполнение свойств объекта
    Procedimento.AddPRC_Produtos(Produto);
    Produto.DisposeOf; // ошибка: уничтожение объекта перед передачей в другую единицу
  end;
  DM.gravaProcedimento(Procedimento); // переход в другую единицу

// Другая единица
procedure TDM.gravaProcedimento(Procedimento: TProcedimento);
var
  produto: TItemProcedimento;
begin
  ...
  for produto in Procedimento.GetPRC_Produtos do
  begin
    // работа с данными объекта
    DM.FDQ.FieldByName('PRO_ID').AsInteger := produto.PRO_ID; // здесь получаем случайный ID вместо ожидаемого
    // дальнейшие операции
  end;
end;

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

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

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

• Убедитесь, что после добавления объекта в коллекцию вы не вызываете его уничтожение. Коллекция TObjectList сама управляет памятью и жизненным циклом объектов.
• Проверьте правильность передачи параметров между единицами. Удостоверьтесь, что параметры передаются по ссылке, а не копируются.

Пример исправленного кода:

// Главная форма
procedure TForm1.SBCadClick(Sender: TObject);
var
  Procedimento: TProcedimento;
begin
  ...
  Procedimento := TProcedimento.Create;
  try
    for item in LVItensProcedimento.Items do
    begin
      Produto := TItemProcedimento.Create;
      // заполнение свойств объекта
      Procedimento.AddPRC_Produtos(Produto); // объект передается в коллекцию, уничтожать его не нужно
    end;

    DM.gravaProcedimento(Procedimento);
  finally
    Procedimento.Free; // уничтожение объекта происходит здесь, после завершения всех операций с ним
  end;
end;

// Другая единица
procedure TDM.gravaProcedimento(Procedimento: TProcedimento);
begin
  ...
  for var produto in Procedimento.GetPRC_Produtos do
  begin
    // работа с данными объекта, теперь данные корректно сохраняются и доступны
    DM.FDQ.FieldByName('PRO_ID').AsInteger := produto.PRO_ID;
    // дальнейшие операции
  end;
end;

Заключение:

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

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

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

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

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

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