adel( ) 函数示例

下面的示例创建并且填充一个数组，然后搜索一个公司名。如果找到此公司名，则从数组删除这个公司名。

close databases
open database (home( ) + 'samples\data\testdata')
use customer && 打开 customer 表
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) && 搜索公司名
if gnpos != 0
*** 找到公司名后，从数组中删除这个公司名***
= adel(gacompanies, gnpos)
gncount = gncount - 1
endif
display memory like gacompanies