//增加
i := ListView1。項目。計數；
用ListView1做什麽
開始
ListItem:=項。添加；
ListItem。caption:= IntToStr（I）；
ListItem。SubItems . Add（‘line‘+IntToStr（I）+‘line‘）；
ListItem。SubItems . Add（‘第三列內容‘）；
結束；
//按標題刪除
for i:=ListView1項目。計數-1遞減到0
如果ListView1。項目【I】。Caption = Edit1。那就發短信
開始
列表視圖1。項目。項目【I】。delete（）；//刪除當前選中的行。
結束；
//選擇壹行
如果ListView1。選定的& lt& gt那就零
編輯1。文本:= ListView1。選定的。標題；
//列表視圖1。items【listview 1。項目。計數-1】。selected:= True；
//列表視圖1。items【listview 1。項目。計數-1】。make visible（True）；
程序t表格1。Button2Click（發送方:to object）；//選擇第壹篇文章。
開始
列表視圖1。SetFocus
列表視圖1。項目【0】。selected:= True；
結束；
程序t表格1。Button1Click（發件人:to object）；//選擇最後壹個。
開始
列表視圖1。SetFocus
列表視圖1。items【listview 1。項目。計數-1】。selected:= True；
結束；
//這是壹個大致的過程。
過程ListViewItemMoveUpDown（LV:TListView；item:TListItem；MoveUp，SetFocus:Boolean）；
定義變量
DestItem:TListItem；
開始
如果（項目=零）或
（（項。index-1 & lt；0）和MoveUp）或
（（項。index+1 & gt；= lv。項目。計數）和（非上移））
然後退出；
呂。Items . BeginUpdate
嘗試
如果繼續前進
DestItem := lv。項目。插入（項目。索引- 1）
其他
DestItem := lv。項目。插入（項目。指數+2）；
DestItem。分配（項目）；
呂。selected:= DestItem；
項目。免費；
最後
呂。項目。最終更新；
結束；
如果SetFocus那麽lv。SetFocus
DestItem。make visible（False）；
結束；
//這是壹個調用過程，可以任意指定要移動的項目。這裏是選擇的）項目。
ListViewItemMoveUpDown（ListView1，listview 1。選中，真，真）；//上移
ListViewItemMoveUpDown（ListView1，listview 1。選中，假，真）；//向下移動
如何使用TListView組件
參考控制單元
程序t表格1。Button1Click（發件人:to object）；
開始
ListView _ delete column（my list view。把手，我）；//i是要刪除的列的序號，從0開始。
結束；
使用LISTVIEW顯示表格中的信息:
過程視圖更改（listv:tlistview；表:tcustomadodatasetvar i:整數）；
開始
tlistview（listv）。items。begin update；{listv:listview name}
嘗試
tlistview（listv）。items。clear；
With table do {表或查詢名稱}
開始
active:= true；
第壹；
而不是eof do
開始
listitem:= tlistview（listv）。items。add；
listitem。標題:= trim（table . fields【I】）。as string）；
// listitem。image index:= 8；
接下來；
結束；
結束；
最後
tlistview（listv）。items。end update；
結束；
結束；
使用ListView的壹些要點。讓我們以兩列ListView為例。
→添加壹行:
用ListView1做什麽
開始
ListItem:=項。添加；
ListItem。標題:=‘第壹列中的內容’；
ListItem。SubItems . Add（‘第二列內容‘）；
結束；
→空ListView1:
列表視圖1。項目。清除；
→獲取當前所選行的行號並刪除當前行:
對於i:=0到ListView1。項目。計數-1 Do
如果ListView1。項目【I】。選中then //i=ListView1。Selected .索引
開始
列表視圖1。刪除第㈠項；//刪除當前選中的行。
結束；
當然，ListView有壹個OnSelectItem事件，它可以確定選擇哪壹行並為其分配壹個全局變量。
→讀取壹行和壹列的操作:
編輯1。文本:= listview1。項目【I】。標題；//讀取第I行第1列
編輯2。文本:= listview1。items【I】。subitems。strings【0】；//讀取第壹行第二列
第三版。文本:= listview1。items【I】。subitems。strings【1】；//讀取第I行第3列
以此類推，妳可以循環閱讀整篇文章。
→將焦點上移壹行:
對於i:=0到ListView1。項目。計數-1 Do
if（listview 1。項目【I】。選定）和（i & gt0）然後
開始
列表視圖1。SetFocus
列表視圖1。項目。項目【i-1】。selected:= True；
結束；
然而，在Delphi6中，ListView有壹個ItemIndex屬性，所以只要
列表視圖1。SetFocus
列表視圖1。item index:= 3；
妳可以設置焦點。