[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;