По просьбе пользователя
RblSb библиотека была немного улучшена.
Добавлена возможность создания неограниченного числа массивов, а не только одного.
Добавлены 2 новые функции:
Arrays(i: integer) - Зарезервировать место под i массивов
SetArr(i: integer) - Выбрать массив номер i из массива массивов
Код примера, на котором проводилось тестирование:
Program array2d2test;
Uses array2d;
Var
s: String;
r: integer;
Begin
arrays(3); // Резервируем место под 3 архива
setarr(0); // Выбираем массив номер 0
r:=dim(3, 3); // Создаем массив 3*3
putint(2, 2, 1111); // Записываем число 1111 в массив
setarr(1); // Выбираем массив номер 1
r:=dim(5, 5); // Создаем массив 5*5
putint(4, 4, 2222); // Записываем число 2222 в массив
setarr(2); // Выбираем массив номер 3
r:=dim(7, 7); // Создаем массив 7*7
putint(6, 6, 3333); // Записываем число 3333 в массив
setarr(0); // выбираем массив 0
s:= '' + getint(2, 2); // считываем число
setarr(1); // выбираем массив 1
s:= s + ' ' + getint(4, 4); // считываем число
setarr(2); // выбираем массив 2
s:= s + ' ' + getint(6, 6); // считываем число
DrawText(s, 0, 0); // выводим числа на дисплей
Repaint;
Delay(5000);
End.