Lib_adata - Несколько динамических массивов
 

Lib_adata - Несколько строчных динамических массивов, каждый из которых имеет свой размер.

procedure define(countMass: integer);
Задает необходимо количество динамических массивов, в процессе работы программы можно увеличивать или уменьшать. При уменьшении, оставшиеся не изменяются.

function count: integer;
Возвращает количество countMass массивов.

procedure init(indexMass: integer);
Инициализирует новый массив заданный indexMass или очищает существующий. indexMass должен лежать в пределах 0..count-1.

procedure additem(indexMass: integer, strItem: string);
Добавляет строку strItem в массив заданный indexMass. Если массив[indexMass] не инициализирован, инициализирует его автоматом.

procedure setitem(indexMass: integer, indexItem: integer, strItem: string);
Изменяет строку с индексом indexItem на strItem в массиве[indexMass]. indexItem должен лежать в пределах 0..getsize(indexMass)-1. Если параметры заданы неверно (индексы за пределом размера массива и т.д., например) - ничего не делает :), программа не падает, аналогично для других процедур.

procedure delitem(indexMass: integer, indexItem: integer);
Удаляет строку с индексом indexItem в массиве[indexMass], строки с большим индесом сдигаються вверх.

function getitem(indexMass: integer, indexItem: integer): string;
Возвращает строку с индексом indexItem из массива[indexMass]. В случае не правильных индексов возвращает пустую строку.

function getsize(indexMass: integer): integer;
Возвращает размер массива[indexMass]. В случае не правильного индекса возвращает 0.

Ответ: Lib_adata - Несколько динамических массивов
 

Динамические массивы всегда были в цене, и всеми любимыми, и за это +
Но почему только строчные массивы?, или я ошибаюсь?

Re: Lib_adata - Несколько динамических массивов
 

Строки как универсальный контейнер данных, MP не поддерживает такой тип данных как Object... А строка все стерпит и числа тоже :)

Ответ: Lib_adata - Несколько динамических массивов
 

ааа.., Вы про IntegerToString, да, что-то сразу не подумал)