Replacement function ANSIREPLACESTR () StringReplace (memo1.seltext, chr (13) char (10), chr (0), [RFREPLACEALL])
Simple Measures for a Split string Procedure TFORM1.BUTTON1CLICK (Sender: TOBJECT); var st: string; beginst: = 'jj53 * xxddx * dccd * rr3 * ...'; st: = stringReplace (st, '*' , # 13, [RFREPLACEALL]); memo1.lines.commatext: = ST; END;