Сохранение массива TStringList

[XCodeR]

Можно ли сохранить 2-3-мерный TStringList массив в файл? и потом обратно считать его в программу?

[XCodeR]

Забыл написать - реализации нужна в C++ Builder или Delphi

[Savant]

Xcode

На выбор есть 2 варианта:

1. Быстро, но в несколько файлов; кол-во файлов = произведению размерностей массива. Используем метод SaveToFile в цикле, например так:



Код:

Код: Выделить всё

var
  i, k, j: Integer;
  fn: String;
begin
......
  // Сохранение
  for i := 0 to i_max do
    for k := 0 to k_max do
      for j := 0 to j_max do begin
        fn := Format('%2x%2x%2x',[i,k,j]) + '.dat';
        StrListArray[i, k, j].SaveToFile(fn);
      end;
.....
  // Загрузка
  for i := 0 to i_max do
    for k := 0 to k_max do
      for j := 0 to j_max do begin
        fn := Format('%2x%2x%2x',[i,k,j]) + '.dat';
        StrListArray[i, k, j].LoadFromFile(fn);
      end;
.....

2. Медленнее, но в 1 файл. Тут по-простому: сначала пишем в файл размер отдельного TStringList (WriteLn(F, StrListArray[i, k, j].Count)), а потом сам TStringList построчно (WriteLn(F, StrListArray[i, k, j][z]); в четырех вложенных циклах все реализуется .

[XCodeR]

сеньку....