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);

Я пишу на Delphi 7. Я хотел бы спросить, можно ли передавать многомерный динамический массив в процедуру в качестве параметр-переменной? (читать всё…)