ALEN( ) 函式
返回數組中元素、行或列的數目。
語法
ALEN(ArrayName [, nArrayAttribute])
參數
ArrayName
指定數組名。如果參數僅包含數組名，ALEN( ) 函式則返回元素的數目。
nArrayAttribute
確定 ALEN( ) 函式返回的是數組元素的數目、數組的行數，還是數組的列數。nArrayAttribute 可以取值為 0、1 或 2。
0 指定返回數組元素數目。省略 nArrayAttribute 與指定 nArrayAttribute 為 0 作用相同。
1 指定返回數組的行數。
2 指定返回數組的列數。如果數組是一維數組，則 ALEN( ) 函式返回 0(沒有列)。
返回值類型
數值型
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
