Checklistbox в строку

[bilibian]

Привет.

В компоненте CheckListBox есть список строк, эти сроки мне нужно объединить в одну. Необходимо чтобы строка в итоге получилась такой:

["option1", "option2"]

Как это сделать?

Думал сделать с помощью цикла вот так:

for I := 0 to CheckListBox1.Items.Count-1 do
  if I<>CheckListBox1.Items.Count-1 then
    str:=str+'"'+CheckListBox1.Items[i]+'",'
  else str:=str+'"'+CheckListBox1.Items[i]+'"' 

str:='['+str+']';

Но по моему это дикий бред и должен быть простой способ.

[Аватар]

CheckListBox1.Items.DelimitedText не подходит?

[bilibian]

Сообщение от Аватар

CheckListBox1.Items.DelimitedText не подходит?

К сожалению не подходит, необходим именно такой формат, который я указал в первом посте.

[Vapaamies]

Сообщение от bilibian

К сожалению не подходит, необходим именно такой формат, который я указал в первом посте.

Жалко, что свойство Delimiter может содержать только один символ. Тогда можно было бы включить StrictDelimiter, и DelimitedText осталось бы только скобками обрамить...

Для плохого форума код в стиле FastCode писать не хочу.

[evg_m]

если очень надо можно попробовать нечто вроде

Listbox.DelemiterText:='|';
r:=Listbox.Items.DelemiterText;
r:=ReplaceStr(r, '|', '", "', [ftRepalceAll]);
r:='["+r+'"]';

чем это лучше цикла не знаю.
P.S. кроме DelemiterText есть еще и CommaText

[Vapaamies]

Сообщение от evg_m

P.S. кроме DelemiterText есть еще и CommaText

CommaText -- это DelimitedText с фиксированными разделителями.