TListView属性及用法

procedure TForm1.FormCreate(Sender: TObject);
var
　i:Integer;
　TempColumn:TListColumn;
　TempItem:TListItem;
begin
　ListView1.ViewStyle:=vsReport;
　for i:=0 to Query1.FieldCount-1 do
　begin
　　TempColumn:=self.ListView1.Columns.Add;
　　TempColumn.Caption:=Query1.Fields[i].FieldName;
　end;
　Query1.First;
　while not Query1.Eof do
　begin
　　TempItem:=self.ListView1.Items.Add;
　　TempItem.Caption:=Query1.Fields[0].AsString;
　　for i:=1 to Query1.FieldCount-1 do
　　begin
　　　TempItem.SubItems.Add(Query1.Fields[i].AsString);
　　end;
　　Query1.Next;
　end;

1：用循环语句。逐条写入
2：var lt:Tlistitem;
begin
...
while not query.eof do
begin
lt:=listview1.litems.add;
lt.caption:=query.fieldbyname('a1').asstring;
lt.subitems.add(query.fieldbyname('a2').asstring;);
lt.subitems.add(query.fieldbyname('a3').asstring;);
query.next
end;

==================数据库表添加到ListView中去====================

listview1.Items.BeginUpdate;
    while   not   qu_list.Eof   do
        begin
            with   listview1   do
                begin
                    tempItem   :=   Items.Add;
                    tempItem.Caption   :=   qu_list.fieldbyname( 'name ').AsString;
                    tempItem.SubItems.Add(qu_list.fieldbyname( 'url ').AsString);
                    tempItem.SubItems.Add(qu_list.fieldbyname( 'addr ').AsString);
                    tempitem.SubItems.add(qu_list.Fields[0].AsString);
                    tempitem.ImageIndex   :=   cbx_playid.Items.indexof(qu_list.fieldbyname( 'playid ').asstring);
                end;
            qu_list.Next;
        end;                
    listview1.Items.EndUpdate;

============================================================

 for i:=0 to ListView1.Itmes.Count-1 do //全部查询
    if ListView1.Items[i].Selectedthen //判断是否是ListView选中的
end;