delphi TListViewµÄʹÓÃ

ListView1.Items Ϊ±ê×¼ TlistitemsÀà
ListView1.Items
(1)¸³Öµ
with ListView1.Items.Add do
begin
Caption:=caption; //Ìí¼ÓµÚÒ»Ïî
SubItems.add(aaaaa); //Ìí¼ÓºóÃæÊý¾Ý
SubItems.add(1234);
SubItems.add(1234);
end; //Ò»¶¨ÒªÊ¹ÓÃWITH½á¹¹.
(2)È¡Öµ
listview1.Items.Item[i].Caption È¡µÃijÌõÊý¾Ý±êÌâ
listview1.Items.Item[i].SubItems.Strings[j] È¡µÃijÌõÊý¾ÝÄÚÈÝ
listview1.Items.Item[i].SubItems.CommaText Ò»Ìõ¼Ç¼µÄÈ«²¿ÄÚÈÝ,
¸ñʽ: "±êÌâ","ÄÚÈÝ1","ÄÚÈÝ2",....
listview1.Items.Item[i].SubItems.Text Ò»Ìõ¼Ç¼µÄÈ«²¿ÄÚÈÝ,
¸ñʽ: ±êÌâ,ÄÚÈÝ,ÄÚÈÝ2....
(3)ɾ³ý
listview1.Items.Item[i].Delete; ɾ³ýÒ»ÌõÊý¾Ý
(4)Êý¾ÝÀàÐÍ(³¤¶È)¶¨Òå
i:=ListView1.Items.Count Êý¾ÝÌõÊý
listview1.Items.Item[i].Selected ¸ÃÌõÊý¾ÝÑ¡Öзñ(MultiSelect¾ö¶¨µ¥Ñ¡¸´Ñ¡)
(5)ÆäËû
ListView1.Items.Clear; Çå³ýÊý¾Ý
Delphi ListViewµÄÓ÷¨(³£Óü¼ÇÉ)
//Ôö¼Ó
            i := ListView1.Items.Count;
            with ListView1 do
            begin
              ListItem:=Items.Add;
              ListItem.Caption:= IntToStr(i);
              ListItem.SubItems.Add('µÚ '+IntToStr(i)+' ÐÐ');
              ListItem.SubItems.Add('µÚÈýÁÐÄÚÈÝ');
            end;
//°´±êÌâɾ³ý
            for i:=ListView1.Items.Count-1 downto 0 Do
              if ListView1.Items[i].Caption = Edit1.Text then
              begin
         &nb