двумерный динамический массив

[amandra]

Как создать двумерный динамический массив?

[SuperVisor]

var
massiv: array of array of integer

[_Dmitry]

//Объявляешь массив
var
  M: array of array of real;
//..........................
//Выделяешь для него память
SetLength(M,5,5);
//Получается массив [0..4,0..4], индексация всегда с 0
//Работаешь с массивом как обычно
M[2,3]:=2.18;
//...........................
//Освободить память
M:=NIL;

[_Dmitry]

В отличии от статического массива, который всегда прямоугольный, размерность динамического массива может быть сложной. Тогда выделять память нужно следующим образом:
SetLength(M,5);
SetLength(M[0],4);
SetLength(M[1],1);
SetLength(M[2],3);
SetLength(M[3],2);
SetLength(M[4],5);
В результате массив будет следующим:
* * * *
*
* * *
* *
* * * * *
Например, элемента M[1,1] не существует (индексация с 0!!!).

[JTG]

выглядит устрашающе

[Роман777]

А обязательно добавлять "M:=NIL;"?

[_Dmitry]

Можно не добавлять, память освобождается автоматически, как при завершении программы, так и при выполнении SetLength при задании новых размеров

[Gypsy]

А в процедуре не получилось объявить двумерный дин. массив.
пишу вот так:
procedure ReadFile(filename: string; var data: array of array of string);
ругается(

[Пепел Феникса]

объявить можно, но изменять его не выйдет.
можно сделать как и с обычными(читай одномерными массивами)
через типизацию
type Mas=array of array of integer;
так и можно попробывать через указатели.

[Gypsy]

Сообщение от Пепел Феникса

объявить можно, но изменять его не выйдет.
можно сделать как и с обычными(читай одномерными массивами)
через типизацию
type Mas=array of array of integer;
так и можно попробывать через указатели.

Спасибо, сделал, работает.