+---------------------------------+
|            MEMLINES             |
+---------------------------------+
MEMLINES(<memo field>)

-----------------------------------
Returns number of lines in memo field.
Return value - Numeric
-----------------------------------

The MEMLINES() function returns the number of lines in a memo field of
arbitrary length.  The number of lines in the memo field is affected by
the current value of SET MEMOWIDTH (the default is 50).

This function is useful when creating printed reports containing memo
fields.

+---------------------------------+
|         Program Example         |
+---------------------------------+
This example prints out all comments in CUSTOMER.

CLOSE ALL
SET TALK OFF
USE customer
SET MEMOWIDTH TO 65
mline = 1
SCAN
    memo_size = MEMLINES(comments)
    IF memo_size = 0
        STORE .T. TO nocomment
        STORE 1 TO memo_size
    ELSE
        STORE .F. TO nocomment
    ENDIF
    IF mline + memo_size  > 65
                EJECT
        mline = 1
    ENDIF
    @ mline,2 SAY 'Company : '+company
    mline = mline+1
    @ mline,2 SAY 'Comments: '
    ?? IIF(nocomment, 'No comments ',comments)
     mline = mline + memo_size + 2
        IF mline > 24
                mline = 1
                CLEAR
        ENDIF
ENDSCAN

-----------------------------------

See Also:  MLINE(), SET MEMOWIDTH

-----------------------------------