[Kis]

Всем привет. такая сложность...нужно из листбокса выгрузить данные в одну(!) ячейку.

Код:

 for i:=0 to ListBox1.Count-1 do
    begin
    Sheet.cells[11,2]:=listbox1.Items.Strings[i];

таким образом у меня в ячейку записывается только последняя строка из листбокса. а как сделать чтобы выгружались все через запятую?

[poli-smen]

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

Всем привет. такая сложность...нужно из листбокса выгрузить данные в одну(!) ячейку.

Код:

 for i:=0 to ListBox1.Count-1 do
    begin
    Sheet.cells[11,2]:=listbox1.Items.Strings[i];

таким образом у меня в ячейку записывается только последняя строка из листбокса. а как сделать чтобы выгружались все через запятую?

Без цикла:

Код:

Sheet.cells[11,2] := ListBox1.Items.DelimitedText;

[Kis]

Спасибо! и еще вопрос, так первое значение выходит в кавычках. можно как то их убрать?

Нашел ошибку, спасибо!