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

Question

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

Answer 1

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.

Answer 2

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

Answer 3

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

Answer 4

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;

Answer 5

Memo1.Text:=  ListBox1.Items.CommaText;

Answer 6

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

Answer 7

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

Answer 8

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