Delphi-Help

type

  T2DBooleanArray = array of array of 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 := 0 to Length(A) - 1 do

    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 := 0 to numrows - 1 do

    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;