Сохранение двумерных массивов в TFileStream

[Daemvil]

Доброго времени суток! Помогите, пожалуйста, разобраться, столкнулся с такой проблемой:
при записи в файл через FileStream с помощью Write одним блоком всего массива, пишется белеберда. При записи колонками - пишется нормально.
Вот так не работает:

FS.Write(DataTable[0,0],RowC*ColC*SizeOf(TDataCell));

Вот так работает:

for I := Low(DataTable) to High(DataTable) do
    FS.Write(Self.DataTable[i][0],RowC*SizeOf(TDataCell));

RowC - кол-во строк,
ColC - кол-во колонок

Type
 TDataCell = Real;
 TDataArray = array of TDataCell;
 TDataTable = array of TDataArray;
var DataTable:TDataTable;

Есть подозрение, что колонки в памяти разбросаны, либо в каждой колонке указывается размер массива.
Можно ли как-то создать динамический двумерный массив, чтобы данные были "единым целым", как это сделано в одномерном массиве?

[Stilet]

А почему запись двойным циклом не хочешь делать?

[Daemvil]

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

А почему запись двойным циклом не хочешь делать?

Потому что работает не достаточно быстро, надо записывать миллионы/десятки миллионов точек

[Аватар]

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

[Пепел Феникса]

разве что обернуть одномерный массив в "двумерный" с манипуляцией индексами.

[Человек_Борща]

Type
TDataCell = Real;
TDataArray = array of TDataCell;
TDataTable = array of TDataArray;
var DataTable:TDataTable;

как-то так:

function SaveTable(sFile:string; oTable:TDataTable):boolean;
var
 ss:TStringList;
 iRow,iCol,iMaxRows,iMaxCols:Integer;
 sRow:string;
begin
 ss:=TStringList.Create;
 iMaxRows := Length(oTable);
 for iRows := 0 to iMaxRows do
 begin  
   iMaxCols := Length(oTable[iRow,0]);
  for iCol := 1 to iMaxCols do
  begin
   sRow := sRow + FloatToStr(oTable[iRow,iCol]) + ',';

..
ss.add(sRow);
  end; 
 end;
 ss.SaveToFile(sFile);
 ss.Free;
end;

Думаю суть вы поняли.

По скольку TDataArray может иметь иную длину в отличии от TDataTable , то в 0-й ячейке массива TDataArray будем хранить длину TDataArray. Чтобы при переборе строк таблицы, 100% знать действительную длину строки таблицы.

[Аватар]

разве что обернуть одномерный массив в "двумерный" с манипуляцией индексами

var DataTable: array of Real;
    RowC,ColC,i,j: Integer;
    FS: TMemoryStream;
begin
  RowC:=3; ColC:=4;
  SetLength(DataTable,RowC*ColC);
  for i:=0 to RowC-1 do
    for j:=0 to ColC-1 do
      DataTable[i*ColC+j]:=100*(i+1)+j;
  FS:=TMemoryStream.Create;
  FS.Write(DataTable[0],RowC*ColC*SizeOf(Real));

  FS.Position:=0;
  FS.Read(DataTable[0],RowC*ColC*SizeOf(Real));
  FS.Free;

[Daemvil]

Ура! Нашел способ записи такого двумерного массива!
Данные в памяти в случае массива 5х5 располагаются так:
[1 колонка: 1,2,3,4,5 строки][15 байт служебных/непонятных мне данных(СД)][2колонка:1..5 строки][15 байт СД][3колонка:1..5 строки][15 байт СД][4колонка:1..5 строки][15 байт СД][5колонка:1..5 строки]
Достаточно взять адрес последней ячейки+размер ячейки в байтах, взять адрес первой ячейки, вычислить длину данных, ну и дальше FS.Write(DataTable[0,0],...);
Кому будет интересно/полезно - сделал тестовый исследовательский пример, который заполняет массив данными типа byte, записывает массив в файл, считывает из файла.

Проект:
Arrays_2x.zip

З.Ы. Кто-нибудь знает, что это за (мета)данные между колонками? объём выделенной памяти,кол-во ссылок на массив, количество элементов в массиве, и 3 пустых байта? они иногда меняются от запуска к запуску программы при неизменных адресах ячеек.