По просьбе
vitalik1
Библиотека для создания динамических массивов чисел (integer)
Перечень функций:
integer
Dim(x: integer; y: integer) - Создать двухмерный массив чисел с размерами X x Y
Функция возвращает 0 если операция прошла успешно или -1 если нет (например, не хватает свободной памяти).
Если x и y равны 0 память очищается (с вызовом Сборщика Мусора).
Если надо сделать одномерный массив, вызывайте, например, так: Dim(1, 100);
integer
GetInt(x: integer; y: integer) - Прочитать число из массива из ячейки с адресом (x, y).
PutInt(x: integer; y: integer; val: integer) - Записать число val в массив в ячейку с адресом (x, y).
FillInt(val: integer) - Заполнить весь ваш массив числом val.
Пример программки с использованием библиотеки:
Program arrays_demo;
Uses array2d;
Var i, j: integer;
Begin
i:=Dim(6, 7); // Создаем массив
PutInt(2, 2, 9); // Записываем число 9 для примера
for i:=0 to 5 do
for j:=0 to 6 do
DrawText(''+GetInt(i, j), i*15 + 15, j*15);
Repaint; Delay(5000);
i:=Dim(0, 0); // Очистка памяти
End.