The following is affected by set memowidth, beware long lines.

#define crlf chr(13)+chr(10)
lcResult = ''
lnLines = memlines(<mymemo>)
_mline = 0
for I = 1 to lnLines
    lcLine = mline(<mymemo>,1,_mline)
    if not empty(lcline)
        lcResult = lcResult + lcLine + crlf
    endif
next

>I need to find a way to remove blank lines from a memo field.
>
>For example, I have the following:
>

>Line 1 Text
>Line 2 Text
>
>Line 4 Text
>

>
>What I need is the following:
>

>Line1 Text
>Line2 Text
>Line4 Text
>

>
>Can someone please suggest an efficient way to do this?
>
>Thanks!