Functions.ALen 方法 (__FoxArray) |
命名空间: XSharp.VFP
1CLEAR 2=AFONT(gaFontArray) // 包含字体名称的数组 3gnNumFonts= ALEN(gaFontArray) // 字体数量 4 5IF gnNumFonts > 10 6 gnNumFonts = 10 // 显示前10个字体 7ENDIF 8 9FOR nCount = 1 TO gnNumFonts 10 ? ALLTRIM(gaFontArray(nCount)) // 显示字体名称 11 ?? ' 这是一个 ' + ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8 12ENDFOR