Работа с динамическими массивами в Delphi: сохранение и загрузка из потока

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

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

Подход к решению проблемы

Для сохранения динамического массива в поток и его последующей загрузки, необходимо использовать методы Stream.Write и Stream.Read. Перед тем как записать данные, важно определить формат сохранения. В данном случае пользователь выбрал бинарный формат.

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

Один из способов сохранения и загрузки динамического массива - это сначала записать длину массива, а затем его данные. Пример кода на Object Pascal:

type
  TItem = Integer;
  TItemArray = array of TItem;
var
  Stream: TStream;
  Arr: TItemArray;
  L: LongWord;
begin
  Arr:= TItemArray.Create(1, 2, 3);
  // Сохранение
  Stream:= TFileStream.Create('C:\Temp\test.bin', fmCreate);
  L:= Length(Arr);
  Stream.WriteBuffer(L, SizeOf(L));
  Stream.WriteBuffer(Pointer(Arr)^, L * SizeOf(TItem));
  Stream.Free;
  // Загрузка
  Stream:= TFileStream.Create('C:\Temp\test.bin', fmOpenRead);
  Stream.ReadBuffer(L, SizeOf(L));
  SetLength(Arr, L);
  Stream.ReadBuffer(Pointer(Arr)^, L * SizeOf(TItem));
  Stream.Free;
end;

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

Существует альтернативный способ, который работает с Delphi 5 и выше, и использует возможности из одного из основных OpenSource модулей. Этот модуль предоставляет функции низкоуровневого RTTI для работы с типами записей, а также объект TDynArray, который может сериализовать динамические массивы, включая массивы записей, строки и другие динамические массивы. Пример использования:

var
  FFileSpec: array of TFiLeSpec;
  TFileSpecList = array of TFiLeSpecList;
  FFileSpecList: TFileSpecList;
  FSL: TDynArray;
  Bin: RawByteString;
begin
  FSL.Init(TypeInfo(TFiLeSpecList), FFileSpecList);
  // Использование FFileSpecList[] как обычно
  // Сериализация содержимого в бинарный формат
  Bin := FSL.SaveTo;
  // Использование FSL.LoadFrom(Bin) для чтения всего содержимого массива обратно
  // Или использование TStream
  FSL.SaveToStream(aStream);
  FSL.Clear;
  aStream.Position := 0;
  FSL.LoadFrom(aStream);
end;

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

Заключение

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

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

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

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

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

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