Сохранение динамического массива

← →
kliff (2005-06-22 23:28) [0]

Подскажите, пожайлуста, как удобнее сохранить (и загрузить) динамический массив вида array of array of string?

← →
-=XP=- © (2005-06-22 23:31) [1]

Так же, как и array of string. Например, в текстовом файле. В первой строке сохранить размерность матрицы, что-то типа "200x200". А дальше - 40000 строк самой матрицы.

← →
Anatoly Podgoretsky © (2005-06-22 23:34) [2]

Построчно

← →
kliff (2005-06-22 23:43) [3]

А не долго это будет для массива 1000х1000?
Я вообще думал, что есть какой-то способ сохранить срузу кусок памяти, или не факт, что это будет непрерывная область?

← →
jack128 © (2005-06-22 23:49) [4]

type TStringArray2 = array of array of string; procedure SaveStringArrayToFile(const Arr: TStringArray2; const Filename: string); var f: file; i, j: Integer; Len: Integer; begin AssignFile(f, Filename); Rewrite(f, 1); try // Сохраняем кол-во строк Len := Length(Arr); BlockWrite(f, Len, SizeOf(Len)); for i := low(Arr) to high(Arr) do begin // array of array of - это не обязательно матрица, поэтому сохраняем размер каждого столбца отдельно Len := Length(Arr[i]); BlockWrite(f, Len, SizeOf(Len)); for j := low(Arr[i]) to high(Arr[i]) do begin // Сохраняем длину строки Len := Length(Arr[i, j]); BlockWrite(f, Len, SizeOf(Len)); if Len > 0 then BlockWrite(f, Arr[i, j][1], Len); end; end; finally CloseFile(f); end; end; procedure LoadStringArrayToFile(out Arr: TStringArray2; const Filename: string); var f: file; i, j: Integer; Len: Integer; begin AssignFile(f, Filename); Rewrite(f, 1); try BlockRead(f, Len, SizeOf(Len)); SetLength(Arr, Len); for i := low(Arr) to high(Arr) do begin BlockRead(f, Len, SizeOf(Len)); SetLength(Arr[i], Len); for j := low(Arr[i]) to high(Arr[i]) do begin BlockRead(f, Len, SizeOf(Len)); SetLength(Arr[i, j], Len); if Len > 0 then BlockRead(f, Arr[i, j][1], Len); end; end; finally CloseFile(f); end; end;

← →
jack128 © (2005-06-22 23:50) [5]

jack128 © (22.06.05 23:49) [4]
procedure LoadStringArrayToFile(out Arr: TStringArray2; const Filename: string);
var
f: file;
i, j: Integer;
Len: Integer;
begin
AssignFile(f, Filename);
reset(f, 1);

copy/paste - проклятье программиста!

> или не факт, что это будет непрерывная область?

Скорее фактом будет, что это фрагментированный кусок памяти, процентов так на 99,9999999999..... Кроме того, ты больше времени потеряешь на операцию записи на диск, нежели на чтение разрозненных участков памяти.

kliff (22.06.05 23:43) [3]
Факт то, что это двухмерный массив указателей.
Но этот массив весьма легко щаписать в файл, сохраняя каждую строку отдельно. Но миллион строк это не такой уж и маленький кусок и займет определенное время, секунд 10

Всегда интересовало, а что же люди хранят в ТАКИХ массивах, к тому же двумерных, и вдобавок строк? Опять имеем случай создания себе проблемы, чтоб потом героически ее преодолеть?

Сохранение динамического массива Найти похожие ветки