Сохранить и загрузить двумерный динамический массивDelphi , Синтаксис , МассивыСохранить и загрузить двумерный динамический массив
Оформил: DeeCo 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 и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |