"Разработка надежного механизма сохранения динамических массивов в Delphi: обход проблемы некорректной записи строк"

Delphi , Синтаксис , Записи и Множества

Разработка надежного механизма сохранения динамических массивов в Delphi: обход проблемы некорректной записи строк

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

Проблема

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

Пример структуры записи

type
  Card = record
    Name: string;
    Up, Right, Left, Down, Mark: Single;
    IDNumber: Integer;
  end;
var
  ArrayCard: array of Card;

Попытка сохранения данных

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

procedure TMainForm.WriteMyData;
var
  FS: TFileStream;
  I, iSize: Integer;
  TmpPath: string;
begin
  // ...
end;

Проблема загрузки данных

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

procedure TMainForm.ReadMyData;
var
  FS: TFileStream;
  I, iSize: Integer;
  TmpPath: string;
  TempCard: Card;
begin
  // ...
end;

Альтернативный ответ и решение проблемы

Для корректной работы с записями, содержащими строки, необходимо отдельно сохранять длину строки и её содержимое. Пример кода для сохранения и загрузки строк:

type
  TmyRec = record
    str: string;
    i: Integer;
    procedure SaveToStream(Stream: TFileStream);
    procedure LoadFromStream(Stream: TFileStream);
  end;

procedure TmyRec.SaveToStream(Stream: TFileStream);
begin
  // ...
end;

procedure TmyRec.LoadFromStream(Stream: TFileStream);
begin
  // ...
end;

Обновление и использование генерализованных коллекций

В качестве альтернативы можно использовать генерализованные коллекции, например TList<TmyRec>, для работы с динамическими массивами данных.

type
  TmyRecList = class(TList<TmyRec>)
  public
    procedure SaveToStream(Stream: TFileStream);
    procedure LoadFromStream(Stream: TFileStream);
  end;

procedure TmyRecList.SaveToStream(Stream: TFileStream);
begin
  // ...
end;

procedure TmyRecList.LoadFromStream(Stream: TFileStream);
begin
  // ...
end;

Подтвержденный ответ и рабочий пример

Разработчик смог исправить ошибки в коде, изменив тип поля Name на массив символов фиксированной длины:

type
  EventString = array[0..20] of Char;
  Card = record
    Name: EventString;
    Up, Right, Left, Down, Mark: Single;
    IDNumber: Integer;
  end;

Исправленные процедуры для сохранения и загрузки данных:

procedure TMainForm.SaveCardsToFile;
var
  Stream: TFileStream;
  L: Integer;
  TmpPath: string;
  n: Integer;
begin
  // ...
end;

procedure TMainForm.LoadCardsFromFile;
var
  Stream: TFileStream;
  L: LongWord;
  TmpPath: string;
  n: Integer;
begin
  // ...
end;

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

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

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

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

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

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

:: Главная :: Записи и Множества ::