About string

xiaoxiao2021-03-06  71

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;

转载请注明原文地址:https://www.9cbs.com/read-121037.html

New Post(0)