替换函数
ansiReplaceStr()
stringreplace(memo1.seltext,chr(13)char(10),chr(0),[rfReplaceAll])
一个拆分字符串的简单办法
procedure TForm1.Button1Click(Sender: TObject);
var st:string;
begin
st:='jj53*xxddx*dccd*rr3*...';
st:=stringreplace(st,'*',#13,[rfReplaceAll]);
memo1.Lines.CommaText := st;
end;