home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / projman1.zip / SIZEARRY.PRG < prev    next >
Text File  |  1993-02-27  |  312b  |  15 lines
  1. *-- SizeArry - Returns the size of the array
  2. PARAMETER laArry
  3. PRIVATE m.lnCount, m.lnLimit
  4.  
  5. EXTERNAL ARRAY laArry
  6. m.lnCount = 1
  7. m.lnLimit = ALEN(laArry,1)
  8. DO WHILE m.lnCount <= m.lnLimit
  9.     IF EMPTY(laArry[m.lnCount,1])
  10.         RETURN m.lnCount-1
  11.     ENDIF
  12.     m.lnCount = m.lnCount + 1
  13. ENDDO
  14. RETURN m.lnCount-1
  15.