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 >
Wrap
Text File
|
1993-02-27
|
312b
|
15 lines
*-- SizeArry - Returns the size of the array
PARAMETER laArry
PRIVATE m.lnCount, m.lnLimit
EXTERNAL ARRAY laArry
m.lnCount = 1
m.lnLimit = ALEN(laArry,1)
DO WHILE m.lnCount <= m.lnLimit
IF EMPTY(laArry[m.lnCount,1])
RETURN m.lnCount-1
ENDIF
m.lnCount = m.lnCount + 1
ENDDO
RETURN m.lnCount-1