Динамические массивы в 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;
a:=A[0,0];
Установка размеров отдельных рядов
SetLength(A[0], 5);
SetLength(A[1], 7);
SetLength(A[2], 3);
Источник: http://www.realcoding.net/article/view/142 |