[交流] 【转帖】DELPHI中的ListView用法

var
  listitem:TListItem;
begin   

   ListView1.Items.Clear;
       while ADOQuery1.Eof=false do
       begin
         with ListView1 do
           begin
           listitem:=ListView1.Items.Add;
           listitem.Caption:=ADOQuery1.fieldbyname('file_name').AsString;
           listitem.SubItems.Add(ADOQuery1.fieldbyname('file_format').AsString);
           listitem.SubItems.Add(ADOQuery1.fieldbyname('file_size').AsString);
           listitem.SubItems.Add(ADOQuery1.fieldbyname('file_update').AsString);
           ListItem.SubItems.Add(ADOQuery1.FieldByName('file_id').Asstring);
           listitem.ImageIndex:=2;
           end;