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

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Open customer table

SELECT company FROM customer ;

WHERE country = 'UK' ;

INTO ARRAY gaCompanies

gnCount = _TALLY

gcName = 'Seven Seas Imports'

CLEAR

DISPLAY MEMORY LIKE gaCompanies*

gnPos = ASCAN(gaCompanies, gcName) && Search for company

IF gnPos != 0

*** Company found, remove it from the array ***

= ADEL(gaCompanies, gnPos)

gnCount = gnCount - 1

ENDIF

DISPLAY MEMORY LIKE gaCompanies