关于如何修改ListView中每项的SubItem值的问题？up有分

Question

怎样在ListView中修改每项的Caption的值，这个我知道。
现在我要修改每项的子项却不行。怎样才能修改？我的ListView是ViewStyle是vsReport。up有分。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
begin
  sl:=TStringList.Create;
  sl.Add('23424');//filesize
  sl.Add('c:\windows\system');//filePath
  listView1.Items.Item[0].SubItems:=sl;
  sl.Free;end;

Answer 2

var
  i, j: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do begin
    ListView1.Items.Item[i].Caption := IntToStr(i);
    for j := 0 to ListView1.Items.Item[i].SubItems.Count - 1 do
      ListView1.Items.Item[i].SubItems[j] := IntToStr(j);  // 子项
  end;

Answer 3

动态添加：procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
  li:TListItem;
begin
  li:=listview1.Items.Add;
  li.Caption:='filename.ext';
  sl:=TStringList.Create;
  sl.Add('23424');//filesize
  sl.Add('c:\windows\system');//filePath
  li.SubItems:=sl;
  sl.Free;end;

Answer 4

奇怪，不是和修改Caption差不多吗？

Answer 5

别告诉我想把listview像stringdrid一样用晕倒

Answer 6

确实，我就想那样像StringDrid用！呵呵，看来不行～～

Answer 7

sysu(死树) :嘿嘿，是可以，好，刚才我的程序里面写错了。
  揭帖，揭帖。

Answer 8

我更新ListView时闪的厉害～～～ListView1.Update都不能解决～～有无办法～

Answer 9

就是使用 lstview.items.subitems[i]:='asdf' 来修改啊

Answer 10

修改的问题都搞定了，
现在是在修改时，Listview闪啊～～～～～闪的我眼睛花～