alen( ) 函数示例

下面的示例用 afont( ) 函数创建一个数组，数组中包含所有有效字体的名称。然后用 alen( ) 函数求出数组行数，接着显示每种字体的字体名，并显示此字体的一个示例。如果已安装的字体超过 10 种，则仅显示前 10 种。

clear
=afont(gafontarray) && 包含字体名的数组
gnnumfonts= alen(gafontarray) && 已有字体数目
if gnnumfonts > 10
gnnumfonts = 10 && 显示前十种字体
endif

for ncount = 1 to gnnumfonts
? alltrim(gafontarray(ncount)) && 显示字体名
?? ' this is an example of ' ;
+ alltrim(gafontarray(ncount)) font gafontarray(ncount), 8
endfor