如何将listview中的内容取出来并用逗号来分隔

[那城]

在delphi如何将listview中的内容取出来并用逗号来分隔

[那城]

我在listview中只有 ：美人归
好

我要得到 ‘1，美人归，2001，好’
其中 1，2001是他们的项目编码

[那城]

要怎么做？

[kaikai_kk]

一会儿是这样:
美人归 1001
好 1002

组合成 :
‘美人归 ，1001， 好， 1002’

一会又是这样:
美人归
好

要得到:
‘1，美人归，2001，好’

真不明所以.......

1,2001是放在那里的?从那里来??
大家猜吧,呵呵

[kampan]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  tmpS: string;
begin
  tmpS := '';
  for I := 0 to self.ListView1.Items.Count - 1 do
    tmpS := tmpS + ListView1.Items[i].Caption + ',';

  Edit1.Text := Copy(tmpS, 1, Length(tmpS) - 1);
end;

end.

[J198728]

楼上的方法貌似可行,不过把edit1换成memo1会不会好一些呢.

[那城]

把里面所有的内容，
var
listitem:TListItem;
begin
ListItem:=LvCost.Items.Add;
ListItem.Caption:=sbname;
ListItem.Data := TObject(StrToInt(item_code));
现在我要把ListItem.Caption+','+ListItem.Data;
多少内容还不知道
要把这个取出来赋给一个变量

[那城]

美人归 1001
好 1002

[那城]

组合成

‘美人归 ，1001， 好， 1002’

[火龙岛主]

procedure TForm1.Button1Click(Sender: TObject);
var
  vList: TStringList;
begin
  vList := TStringList.Create;
  try
    for I := 0 to self.ListView1.Items.Count - 1 do
    begin
       vList.Add(ListView1.Items[i].Caption);
       vList.AddStrings(ListView1.Items[i].SubItems);
    end;
    showmessage(vList.DelimitedText);
  finally
    vList.Free;
  end;

end;

[mycool2006]

Memo1.Text:= ListBox1.Items.CommaText;

[xyzsuper]

楼上这个办法好！我的办法就是你在设置listview一列，长度为0，这样用户就看不到这列了，可以用来存一些项目号，id之类的数据，，简单，而且可以类推增加多个字段，用户都看不到，嘿嘿

[那城]

问题已经解决
那是 ListItem.Data := TObject(StrToInt(item_code)); 2001