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

Question

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

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

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

Answer 1

您需要使用该类的DelimitedText属性TStringList.从在线帮助

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

Answer 2

使用该DelimitedText属性:

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