>clear > >lcString = "" >for i = 1 to 1000 > lcString = lcString + chr(13) + chr(10) + alltrim(str(i)) >next > >* mline() >lnStart = seconds() >for i = 1 to memlines(lcString) > discard(mline(lcString, i)) >next >? "mline():", seconds() - lnStart > >* mline() + _mline >lnStart = seconds() >_mline = 0 >for i = 1 to memlines(lcString) > discard(mline(lcString, 1, _mline)) >next >? "mline() + _mline:", seconds() - lnStart > >* alines() >lnStart = seconds() >for i = 1 to alines(MyArray, lcString) > discard(MyArray(i)) >next >? "alines():", seconds() - lnStart > >FUNCTION Discard(lcString) >return .T. >