Turbo Pascal, как создавать динамические многомерные массивы

Posted by Человек_Борща under Delphi, Пост-обзор

http://www.programmersforum.ru/showthread.php?t=254061

Аватар:

Там двумерный и для каждой строки отдельно выделяется память

type TDynStroka = array[1..1] of Integer;
TDynArray = array[1..1] of ^TDynStroka;
var N,M: Integer;
mass: ^TDynArray;
i,j: Integer;
begin
N:=2;
M:=2;
GetMem(mass,SizeOf(TDynStroka)*M);
for i:=1 to M do GetMem(mass^,SizeOf(Integer)*N);

for i:=1 to M do
for j:=1 to N do mass^^[j]:=i*10+j;

for i:=1 to M do
for j:=1 to N do
WriteLn(‘mass[‘+IntToStr(i)+’,’+IntToStr(j)+’] = ‘+IntToStr(mass^^[j]));

for i:=1 to M do FreeMem(mass^);
FreeMem(mass);

Похожие статьи

• Функция двойной факториал в Pascal
• Задача на целочисленные файлы (Turbo Pascal)
• Проверка файла (Turbo Pascal)
• Меню из процедур. Листать стрелками
• Паскаль Турбо, матрицы
• Вычитание (длинная арифметика)
• Книги для изучения Pascal.
• Отличие type T = Object от type T = Class?
• Передача многомерных динамических массивов в процедуру в качестве параметра-переменной