读书人

TStringlist.CommaText,分隔符有关问题

发布时间: 2012-03-31 13:13:26 作者: rapoo

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中也找不到,是新版本的吗?

读书人网 >.NET

热点推荐