使用分隔符将TStringlist转换为字符串

Question

我有一个存储在TStringList中的字符串列表，我想将其转换为逗号分隔的字符串，我使用以下代码

channelList: TStringList;
aCurrentChannel :=  Stringreplace(channelList.Text,Char(13)+Char(10),',',[rfReplaceAll]);

但最后一个角色来了，就像1,2一样，无论如何都要避免这种情况？

Answer 1

您需要使用TStringList类的DelimitedText属性。来自在线帮助

  

使用DelimitedText在一个字符串中获取或设置TStrings对象中的所有字符串，用Delimiter属性指定的字符分隔。

Answer 2

使用DelimitedText属性：

channelList.Delimiter := ',';
channelList.QuoteChar := ''; // or
channelList.QuoteChar := #0; // for higher delphi versions
aCurrentChannel := channelList.DelimitedText;

Answer 3

当你进入字符串列表时，我建议你看看http://wiki.delphi-jedi.org/wiki/JCL_Help:IJclStringList

// var channelList: iJclStringList;
var s: string;

s := JclStringList.Add(['aaa','bbb','ccc '])
         .Split('ddd: eee', ':', False).Trim.Join(',');