为啥用TStringList的劈开方法，有空格的串也被劈开了呢？
By 剑魔生 at
8年前
, 19189 次点击
数据：
出版人：张三 李四
代码：
Var
strList:TStringList;
strList := TStringList.Create;
strList. Delimiter := ‘:’;
strList. DelimitedText := ‘出版人:张三 李四’;
结果：
strList[0] 等于出版人
strList[1] 等于张三
strList[2] 等于李四
|
这个是TStrings.SetDelimitedText代码里面自动加空格作为分割符了，要解决这个问题可以把空格先替换了，在劈开后再替换回来，如下： tmp :=StringReplace(‘出版人:张三 李四’,' ','$_$',[rfReplaceAll]); strList.Delimiter := ‘:’; strList.DelimitedText := tmp; key_name := StringReplace(strList[0],'$_$',' ',[rfReplaceAll]); key_value:= StringReplace(strList[1],'$_$',' ',[rfReplaceAll]); |
网友回复/评论仅代表其个人看法，并不表明本社区同意其观点或证实其描述。
把空格先替换了，在劈开后再替换回来，如下：
tmp :=StringReplace(‘出版人:北京java培训’,' ','$_$',[rfReplaceAll]);
strList.Delimiter := ‘:’;
strList.DelimitedText := tmp;
key_name := StringReplace(strList[0],'$_$',' ',[rfReplaceAll]);
key_value:= StringReplace(strList[1],'$_$',' ',[rfReplaceAll]);