TStringList中Delimiter和DelimitedText的用法

 

Delimiter是DelimitedText中的分隔符。请看下面代码：

 

 

ts := TStringList.Create; ts.Delimiter := '#'; ts.DelimitedText := 'aaa#bbb#ccc'; for i := 0 to ts.count -1 do begin showmessage(ts.Strings[i]); end;

运行上面的代码，会依次显示：

aaa

bbb

ccc

三个消息框。

如果上面的语句改为：

ts := TStringList.Create; ts.CommaText := 'aaa,bbb,ccc'; //注意，这里把'#'改为','了。 for i := 0 to ts.count -1 do begin showmessage(ts.Strings[i]); end;

也是会显示:

aaa

bbb

ccc

三个消息框。

因为TStringList中默认的分隔符是','，而分隔符是','时，把字符串赋给CommaText，TStringList就会把这个字符串以','为分隔符分开。

再如下面：

ts := TStringList.Create; ts.Text := 'aaa' + #13#10 + 'bbb' + #13#10 + 'ccc'; //注意，这次在中间加入了#13回车和#10换行控制符号。 for i := 0 to ts.count -1 do begin showmessage(ts.Strings[i]); end;

还是三个消息框

aaa

bbb

ccc