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.