Сохранение многомерного массива в файл

[Agrahil]

Можно ли сохранить/прочитать многомерный массив из файла (например mas[i,j,k]). C двумерными проблем не возникает. А как быть с 3-х, 4-х.. -мерными?

Как вариант, можно трехмерный можно сохранить как множество двумерных, только я не знаю, как это сделать в один файл. Есть ли такая возможность?

[Прик]

Если с двумерными проблем нет, то непонятно почему с многомерными проблема.

Многомерность в головах, а не в натуральном выражении - при сохранении/чтении в файл (который, кстати, может хранить элементы любого массива только в линейном виде) увеличивается лишь количество циклов пропорционально измерениям массива.

[Agrahil]

Похоше вы правы, где-то подтормаживаю..
А можно ли сохранить в один файл больше одного массива?

[Mad_Cat]

А можно ли сохранить в один файл больше одного массива?

Agrahil Можно

[Agrahil]

Если это не секрет, то подскажите как?

[Arigato]

Сообщение от Agrahil

Можно ли сохранить/прочитать многомерный в архив из файла (например mas[i,j,k]). C двумерными проблем не возникает. А как быть с 3-х, 4-х.. -мерными?

Какой еще архив?

Набросал примерчик сохранения и загрузки 3-х мерного массива, разбирайтесь:

const n = 4;

type TMultiArray = array[1..n,1..n,1..n] of Integer;

var Arr1, Arr2: TMultiArray;

procedure MultiFilling (var Arr: TMultiArray);
var i, j, k: Integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      for k := 1 to n do
        Arr[i,j,k] := Random (1000);
end; {proc MultiFilling}

procedure MultiPrint (const Arr: TMultiArray);
var i, j, k: Integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      for k := 1 to n do
        Write (Arr[i,j,k]:4);
      Write (' | ');
    end; {for}
    WriteLn;
  end; {for}
end; {proc MultiPrint}

function MultiSave (const FileName: string; const Arr: TMultiArray): Boolean;
var H, S: Integer;
begin
  S := 0;
  H := FileCreate (FileName);
  if H > -1 then
  begin
    S := FileWrite (H, Arr, SizeOf (Arr));
    FileClose (H);
  end;
  Result := S = SizeOf (Arr);
end; {func MultiSave}

function MultiLoad (const FileName: string; var Arr: TMultiArray): Boolean;
var H, S: Integer;
begin
  S := 0;
  H := FileOpen (FileName, fmOpenRead or fmShareDenyWrite);
  if H > -1 then
  begin
    S := FileRead (H, Arr, SizeOf (Arr));
    FileClose (H);
  end;
  Result := S = SizeOf (Arr);
end; {func MultiSave}

begin
  Randomize;
  MultiFilling (Arr1);
  MultiPrint (Arr1);
  if MultiSave ('multi.dat', Arr1) then
  begin
    if MultiLoad ('multi.dat', Arr2) then
    begin
      WriteLn;
      MultiPrint (Arr2);
    end else WriteLn ('Load error!');
  end else WriteLn ('Save error!');
  ReadLn;
end.

[Mad_Cat]

Если это не секрет, то подскажите как?

так же как один массив!
только отделяйте их друг от друга чем-нибудь)

[Agrahil]

Можно ли сохранить/прочитать многомерный в архив из файла

Описался. Должно быть: массив.

Arigato, спасибо помог.