* В следующем примере создается и заполняется массив с именами
* компаний; затем используется ASCAN( ), чтобы найти имя определенной
* компании. Если имя компании найдено oно удаляется из массива.

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