请问ListView如何显示表中的数据?

                            
我的代码如下:   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
        with   ADOQuery1   do  
            begin  
                  close;  
                  sql.Clear;  
                  sql.Add('select   *   from   book');  
                  open;  
   
              //     ListView1.Items.Clear;  
                  while   not   eof   do  
                      begin  
                            with   ListView1.Items.Add   do  
                                begin  
                                    caption:=fieldbyname('图书编号').AsString;  
                                    subitems.Add(fieldbyname('图书名称').AsString);  
                                    subitems.Add(fieldbyname('作者').AsString);  
                                    subitems.Add(fieldbyname('出版社').asstring);  
                                end;  
                              next;  
                      end;  
                  close;  
            end;  
   
  end;  
   
  运行结果:横着只显示1     2     3     4       5       6       7       8     9     10(我的book表中有10条记录,图书编号是自增的),而且还显示到末尾的时候还换行.请问为什么会这样?  
  我要的结果是第一行显示字段名,下面显示对应的数据?  
  请问我该如果做?

查看回复