Delphi World - Сохранить и загрузить двумерный динамический массив
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Сохранить и загрузить двумерный динамический массив

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования