ALEN นับความยาว Array ง่ายๆ
DIMENSION myArray(2,3) && create an array of 2 rows and 3 columns ? ALEN(myArray) && returns 6 (2*3 elements) ? ALEN(myArray,1) && returns 2 (rows) ? ALEN(myArray,2) && returns 3 (columns) ฟังก์ชั่น ALEN ของ VFP นั้นเราสามารถใช้ได้อย่างเบ็ดเสร็จทั้งนับคอลัมน์ นับแถว และความยาวทั้งหมด ง่ายมากๆเลยใช่ไหมล่ะครับ โดยเราอาจจะประยุกต์ใช้แสดงค่า Array โดยเขียนฟังก์ชั่นได้ดังข้างล่างนี้ครับ * แสดงค่าใน Array FUNCTION func_print_r PARAMETERS print_array maxrow = ALEN(print_array,1) maxcol = ALEN(print_array,2) FOR thisrow=1 TO maxrow ?thisrow,"" FOR thiscol=1 TO maxcol ??print_array(thisrow,thiscol) ??IIF(thiscol<>maxcol,",","") && เพิ่ม Comma คั่นท้ายหากยังไม่หมดทุก column NEXT thiscol NEXT thisrow ENDFUNC โดยวิธีการเรียกใช้ก็ใส่ @ เข้าไปหน้าชื่อ Array ที่ต้องการแสดงค่าเพื่อให้ส่งไปแบบอ้างอิง Pointer นั่นเองครับ =func_print_r(@test) ถือว่าเป็นตัวอย่างอย