Я же сказал - либо собираешь по элементам (в цикле), либо так:
Edit1.Text := StringReplace(ListBox1.Items.Text,#13#10,'',[]);
Если с параметрами не напутал (пишу по памяти - посмотри в хелпе), то вызов функции заменить все символы перевода строки на пустой символ, т.е. удалит их. Для понимания погляди в хелпе еще TStringList.Text, т.к. свойство Items у TListBox и есть TStringList, хотя и объявлен как TStrings.
|