empty( ) 函数示例

下面的示例打开 testdata 数据库的 customer 表。用 for ... endfor 创建一个循环，在这个循环中用 empty( ) 函数确定 tag( ) 函数是否返回空字符串。显示每个结构索引标识的名称及其候选状态。

close databases
open database (home( ) + 'samples\data\testdata')
use customer && 打开 customer 表

for ncount = 1 to 254
if !empty(tag(ncount)) && 检查空字符串
? tag(ncount) && 显示标识名
? candidate(ncount) && 显示候选状态
else
exit && 当没有发现更多标识时退出循环
endif
endfor