ALen Function (FoxArray) |
Namespace: XSharp.VFP
1CLEAR 2=AFONT(gaFontArray) // Array containing font names 3gnNumFonts= ALEN(gaFontArray) // Number of fonts 4IF gnNumFonts > 10 5gnNumFonts = 10 // Display first 10 fonts 6ENDIF 7FOR nCount = 1 TO gnNumFonts 8? ALLTRIM(gaFontArray(nCount)) // Display font name 9?? ' This is an example of ' ; 10+ ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8 11ENDFOR