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