listview的使用方法:(利用過程)
procedure Tmainfrm.addbookinfo(var q:Tquery;var v:Tlistview;flg:integer);
begin
 q.first;
while not q.eof do
 begin
 with v.items.add do 
  begin
    caption:=q.fieldbyname('圖書編號(hào)').asstring;
    subitems.add(q.fieldbyname('書名').asstring);
    subitems.add(q.fieldbyname('作者').asstring);
  end;
 q.next;
 end;
end;


book_no:=v.selected.caption;//取到相應(yīng)的caption
b_out:=v.selected.subitems[4];//找到自已的第四個(gè)子項(xiàng)值