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

Code:

type

T2DBooleanArray = arrayofarrayof Boolean;

procedure Save2DBooleanArray(const A: T2DBooleanArray; S: TStream);

var

writer: TWriter;

i: Integer;

begin

Code:

type

T2DBooleanArray = arrayofarrayof Boolean;

procedure Save2DBooleanArray(const A: T2DBooleanArray; S: TStream);

var

writer: TWriter;

i: Integer;

begin

Assert(Assigned(S));

writer := TWriter.Create(S, 8096);

try

writer.WriteInteger(Length(A));

for i := 0to Length(A) - 1do

begin

writer.WriteInteger(Length(A[i]));

writer.Write(A[i, 0], Length(A[i]) * sizeof(A[i, 0]));

end; { For }

finally

writer.Free;

end; { Finally }

end;

procedure Load2DBooleanArray(var A: T2DBooleanArray; S: TStream);

var

reader: TReader;

i, numrows, numcols: Integer;

begin

Assert(Assigned(S));

reader := TReader.Create(S, 8096);

try

numrows := reader.ReadInteger;

SetLength(A, numrows);

for i := 0to numrows - 1do

begin

numcols := reader.ReadInteger;

SetLength(A[i], numcols);

reader.Read(A[i, 0], numcols * sizeof(A[i, 0]));

end; { For }

finally

reader.Free;

end; { Finally }

end;