Вставляет элемент в одномерный массив или вставляет строку или столбец в двумерный массив.
Синтаксис:
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