DropDown image DropDownHover image Collapse image Expand image CollapseAll image ExpandAll image Copy image CopyHover image

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

AINS(ArrayName, nElementNumber [, 2])

Параметры

ArrayName

Определяет имя массива, в который вставляется новый элемент.

nElementNumber

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

Для вставки элемента в одномерный массив ArrayName указывается номер позиции nElementNumber , где происходит вставка. Новый элемент вставляется перед указанным в nElementNumber элементом массива. Для вставки строки элементов в двумерный массив ArrayName указывается номер строки  nElementNumber, перед которой происходит вставка. Новая строка располагается перед указанной строкой nElementNumber.

Для дополнительной информации см. описание Команды DIMENSION.

2

Определяет, что вставляется столбец элементов в двумерный массив. Новый столбец вставляется перед столбцом, заданным номером nElementNumber.

Expand imageВозвращаемое Значение

Тип Numeric

Expand imageКомментарии

Вставка элемента, строки или столбца элементов не изменяет размерность массива. Следующие элементы, строки или столбцы массива смещаются к концу массива, конечные элементы удаляются из массива. Значения новых элементов устанавливаются в значение = false (.F.).

Функция AINS( ) возвращает 1, если элемент, строка или столбец успешно вставлены в массив.

Expand imageПример

В следующем примере создается массив наименований компаний, массив сканируется для поиска указанной компании. Если данной компании нет, то выполняется увеличение размерности массива и вставка наименования заданной компании.

  CopyCode imageКопировать Код
CLOSE DATABASES
OPEN DATABASE (HOME(2) + '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

Expand imageСм. также