| Динамические массивы в Delphi
 Объявлениеvar My_Array : array of Integer; 
 
 Установка размера массиваSetLength(My_Array,100); 
 
 Получение числа элементов массиваn:=Length(My_Array); 
 
 Обращение к первому элементу массиваMy_Array[0]:=10;
x:=My_Array[0];
 Двумерный массив
 Объявлениеvar A : array of array of integer; 
 
 Установка размера массиваSetLength(A,5,7); 
 
 Обращение к первому элементу массиваA[0,0]:=10;
x:=A[0,0];
 Установка размеров отдельных рядов
 SetLength(A[0], 5);
SetLength(A[1], 7);
 SetLength(A[2], 3);
 
 Источник: http://www.realcoding.net/article/view/142
 |