Converting TStringlist to string with delimiter

Question

I have a list of strings stored in TStringList, i want to convert it into string seperated by commas and i use the following code

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

but the last character is coming as , like 1,2, is there anyway to avoid that?

As JamesB wrote, there is `CommaText` property, but using `Trim()` should fix your original solution ie `StringReplace(Trim(sl.Text), ...)` — ain, Jul 16 '13 at 08:10
@JamesB, CommaText surrounds the items with " as QuoteChar, maybe this is not what the OP wants — whosrdaddy, Jul 16 '13 at 08:15
@whosrdaddy, QuoteChar is only used when needed (i.e. when blanks or quotes are found in the strings). Nevertheless, DelimitedText acts the same way concerning quotes. CommaText only uses fixed characters for Delimiter and QuoteChar. — Uwe Raabe, Jul 16 '13 at 08:49
@UweRaabe, indeed it only quotes strings with spaces and quotes, but maybe it is not desired. — whosrdaddy, Jul 16 '13 at 09:02

score 21 · Accepted Answer · edited Jul 16 '13 at 08:38

21

You need to use the DelimitedText property of the TStringList class. From the online help

Use DelimitedText to get or set all the strings in the TStrings object in a single string, separated by the character specified by the Delimiter property.

edited Jul 16 '13 at 08:38

Sir Rufo

16,671
2
33
66

answered Jul 16 '13 at 08:09

RBA

11,762
14
72
118

whosrdaddy · Answer 2 · 2015-12-29T20:56:20.547

16

use the DelimitedText property:

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

edited Dec 29 '15 at 20:56

answered Jul 16 '13 at 08:09

whosrdaddy

11,297
4
41
92

`channelList.QuoteChar := '';` does not work anymore, `channelList.QuoteChar := #0;` - its working – Roman Marusyk Dec 29 '15 at 13:37
I'm using XE7 and I got an error: E2010 Incompatible types: 'Char' and 'string'. But in Delphi 6 I always used `QuoteChar:= '';` It depends on unicode? – Roman Marusyk Dec 29 '15 at 19:14

score 1 · Answer 3 · answered Jul 16 '13 at 09:39

While you're into string lists i suggest you to cast a look at 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(',');

Converting TStringlist to string with delimiter

3 Answers3