Вставляет элемент в одномерный массив или вставляет строку или столбец в двумерный массив.

Синтаксис:

AINS(ArrayName, nElementNumber [, 2])

Параметры:
ArrayName
Задает имя массива, в который вставляется элемент.
nElementNumber
Задает место в массиве, куда следует вставить новый элемент, строку или столбец.
Чтобы вставить элемент в одномерный массив, укажите ArrayName и номер nElementNumber, под которым он должен быть вставлен. Новый элемент вставляется непосредственно перед элементом, носившим номер nElementNumber. Чтобы вставить строку в двумерный массив, задайте ArrayName и номер строки nElementNumber, перед которой нужно сделать вставку. Новая строка будет вставлена непосредственно перед строкой с номером nElementNumber.
Подробнее о том, как ссылаться на элементы массива по их индексам, см. описание команды DIMENSION.
2
Вставляет столбец в двумерный массив. Новый столбец вставляется непосредственно перед столбцом, заданным номером nElementNumber.

Результат:
Числовой

Комментарии:
Вставка в массив элемента, строки или столбца не изменяет размера массива. Последующие элементы, строки и столбцы сдвигаются к концу массива, а последний элемент, строка или столбец массива теряются. Вновь вставленный элемент, строка или столбец инициализируется значением "ложь" (.F.).
Функция AINS( ) возвращает 1 в случае успешной вставки элемента, строки или столбца.

Пример:

* В следующем примере происходит создание и заполнение массива,
* затем в нем ищется имя компании, если его не удается найти, оно
* добавляется в массив.

CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE customer	&& Open customer table
SELECT company FROM customer ;
	WHERE country = 'Germany' ;
	INTO ARRAY gaCompanies

gnCount = _TALLY
gcName = 'Seven Seas Imports'
CLEAR
DISPLAY MEMORY LIKE gaCompanies

IF ASCAN(gaCompanies, gcName) = 0	&& Search for company
*** Company not found-add it ***
	DIMENSION gaCompanies[gnCount+1,1]
	= AINS(gaCompanies, gnCount+1)
	gaCompanies[gnCount+1] = gcName
ENDIF
DISPLAY MEMORY LIKE gaCompanies