TStringlist.CommaText,分隔符问题
我有一个字符串
- Delphi(Pascal) code
str := 'W GT, - Ws t,YU';我用Stringlist分隔strstrlist.Delimiter := ',';strlist.CommaText := str;处理后,不但逗号的给分开了,空格也给分开了,我只要逗号分开就好,怎么搞现在结果:WGT-WttYU我要的结果:W GT -Ws tYU
[解决办法]
不要太迷信现成的,与其费那么多的精力在Stringlist上,还不如自己做一下
- Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);var str:string; i:integer;begin str := 'W GT, - Ws t,YU'; i:=pos(',',str); while i>0 do begin memo1.Lines.Add(copy(str,1,i-1)); delete(str,1,i); i:=pos(',',str); end; memo1.Lines.Add(str);end;
[解决办法]
strlist.linebreak := ','; strlist.Text := str;
[解决办法]
用StringReplace来分割字符,可以设置任意长度的字符当分隔符
S := 'W GT, - Ws t,YU';
ss := TStringList.Create;
ss.Text := StringReplace(S, ',', #13#10, [rfReplaceAll]);
SS[0]...
SS[1]...
ss.free;
[解决办法]
二楼的
strlist.linebreak
没见过,我的Delphi7中也找不到,是新版本的吗?