请问高手，如何修改选中listview的item中子项的内容？多谢了

Question

多谢

Answer 1

//添加
procedure TForm1.Button1Click(Sender: TObject);
var
  item:TListitem;
begin
  item:=ListView1.Items.Add ;
  item.Caption :='aa';
  item.SubItems.Add('bb');
  item.SubItems.Add('cc');
  item.Checked :=True;
end;//显示
procedure TForm1.Button2Click(Sender: TObject);
var
  item:TListitem;
begin
  item:=ListView1.Selected;
  Edit1.Text :=item.Caption ;
  Edit2.Text :=item.SubItems.Strings[0];
  Edit3.Text :=item.SubItems.Strings[1];
  CheckBox1.Checked :=item.Checked ;
end;//修改
procedure TForm1.Button3Click(Sender: TObject);
var
  item:TListitem;
begin
  item:=ListView1.Selected;
  item.Caption := Edit1.Text;
  item.SubItems.Strings[0]:= Edit2.Text;
  item.SubItems.Strings[1]:= Edit3.Text;
  item.Checked :=CheckBox1.Checked;
end;