Сохранение и Восстановление Динамических Массивов в Delphi: Работа с Файловыми Потоками

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

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

Проблема:

Рассмотрим структуру IndiReportIndi, которая определена в Delphi 2009 и динамический массив XRefList на основе этой структуры. Необходимо сохранить XRefList в файловый поток таким образом, чтобы строки IndiName и ReportIndiName также были сохранены и могли быть восстановлены при последующем чтении из файла.

Решение:

Для решения этой задачи можно использовать различные подходы. Один из них заключается в добавлении процедур SaveToStream и LoadFromStream непосредственно в структуру IndiReportIndi. Ниже приведен пример кода, который демонстрирует, как это можно реализовать:

type
  IndiReportIndi = record
    IndiName: string;
    NameNum: integer;
    ReportIndiName: string;
    procedure SaveToStream(Stream: TStream);
    procedure LoadFromStream(Stream: TStream);
  end;

type
  TXRefList = array of IndiReportIndi;

function LoadString(Stream: TStream): string;
begin
  // ...
end;

procedure SaveString(Stream: TStream; const S: string);
begin
  // ...
end;

procedure IndiReportIndi.SaveToStream(Stream: TStream);
begin
  // Сохранение полей структуры в файловый поток
  SaveString(Stream, IndiName);
  Stream.WriteBuffer(NameNum, SizeOf(Integer));
  SaveString(Stream, ReportIndiName);
end;

procedure IndiReportIndi.LoadFromStream(Stream: TStream);
var
  S: string;
begin
  // Восстановление полей структуры из файлового потока
  IndiName:= LoadString(Stream);
  Stream.ReadBuffer(NameNum, SizeOf(Integer));
  ReportIndiName:= LoadString(Stream);
end;

function LoadXRefList(Stream: TStream): TXRefList;
begin
  // ...
end;

procedure SaveXRefList(Stream: TStream; const List: TXRefList);
begin
  // ...
end;

Также стоит обратить внимание на использование сторонних библиотек, таких как kblib, которые предоставляют готовые решения для сериализации данных.

Альтернативный подход:

Использование компонентов TReader и TWriter может значительно упростить процесс сохранения и восстановления данных. Пример использования этих компонентов:

var
  S: TStream;
  W: TWriter;
  A: array of IndiReportIndi;
  E: IndiReportIndi;
begin
  S := TFileStream.Create(...);
  W := TWriter.Create(S);
  try
    W.WriteInteger(Length(A));
    for E in A do
    begin
      W.WriteString(E.IndiName);
      W.WriteInteger(E.NameNum);
      W.WriteString(E.ReportIndiName);
    end;
  finally
    W.Free;
    S.Free;
  end;
end;

Для чтения данных используется TReader и соответствующие методы для чтения целых чисел и строк.

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

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

Заключение:

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

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

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

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

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

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