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 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.