listview的一些基本操作?

Question

控件listbiew1(带有checkbox的),字段:xx,yy.
1,如何添加记录?
2,如何得出所有选中的记录?
谢谢

Answer 1

1、设置listview的checkboxes为true;
定义变量
newlistitem:tlistview;
操作：
newlistitem:=listview1.items.add
循环体
listview1.caption：=和xx有关的字段
newlistitem.subitems.add(和yy有关的字段)
循环体结束
2、
for i:=1 to listview1.items.count-1 do
begin
   if  listview1.items.item[i].selected=true then
   begin
   操作
   end;  
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.AddItem('asdf',self);
end;

Answer 3

1
for I := 1 to 10000 do
begin
  with ListView1.Items.Add do
  begin
    Caption := IntToStr(I);
    ImageIndex := I;
  end;
end;
2
if ListView1.Items.Selected = nil then
   ShowMessage('no selected')
else
   ShowMessage('selected'); 

Answer 4

//添加
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;

Answer 5

哎呀,来迟一步!
xzhifei(星级饭桶·飞) 这位兄弟说得比较好