请问Lostbox的每一行中怎样加换行回车符？

Question

sendform.ListBox1.Items.Clear;
    sendform.ListBox1.Items.Add(Bmobile+'对你说: (时间'
    +ListView2.Selected.SubItems.Strings[5]+')'
    +#13#10+ListView2.Selected.SubItems.Strings[4]);以上代码的+#13#10（换行回车）+ 在memo.text能够有效果。但在listbox中每一行却不行，怎么解决呢？

Answer 1

sendform.ListBox1.Items.Clear;
sendform.ListBox1.Items.Add(Bmobile+'对你说: (时间'
    +ListView2.Selected.SubItems.Strings[5]+')');
sendform.ListBox1.Items.Add(ListView2.Selected.SubItems.Strings[4]);Memo1.Text:=sendform.ListBox1.Items.Text;

Answer 2

谢谢楼上的，但我的问题不是在memo.text中实现换行回车。而是想在listBox中实现。

Answer 3

要在listbox里面实现换行，不能用add方法实现
必须drawitem

Answer 4

Memo1.Lines.Clear;
Memo1.Lines.Add(Bmobile+'对你说: (时间'
    +ListView2.Selected.SubItems.Strings[5]+')');
Memo1.Lines.Add(ListView2.Selected.SubItems.Strings[4]);
sendform.ListBox1.Items.Add(Memo1.Lines.Text);这里的Memo的Lines可以用TStrings代替。

Answer 5

victor_yang(victoryang)
我试过了，可是这个方法行不通啦，呵呵，不过还是很谢谢你。 cobi(我是小新) 
你能不能再详细说明一下，最好有code解释。