关于变长字符串的截取(100)

现在有这么个字符串：如下：str='xl=4&no[1]=2013&xm[1]=li &no[2]=2014&xm[2]=li &no[3]=2015&xm[3]=li &no[4]=2016&xm[4]=li'如何分割啊？ 并按no存入数据库 ， no是数据库中一个列

需要的最终结果是什么？是这样吗？2013&xm[1]=li2014&xm[2]=li2015&xm[3]=li2016&xm[4]=li最简单的办法：str := StringReplace(str, '&xm', '_xm', [reReplaceAll]);str := StringReplace(str, ']=li', ']_li', [reReplaceAll]);with TStringList.Create dotry Delemiter := '&'; DelimitedText := str; for I := 0 to Count - 1 do begin str := ValueFromIndex(I); str := StringReplace(str, ']_li', ']=li', [rfReplaceAll]); str := StringReplace(str, '_xm', '&xm', [rfReplaceAll]); WriteToDB(str); end;finally Free;end;