建立Delphi树结构，直接使用，方便快捷-in

　　　　　 i:= ListView1.ItemIndex

　　　　　 if i=-1 then

　　　　 begin

　　　　　 application.messagebox( 请选择记录 , 注意： ,MB_OK)　

　　　　 end

　　　　 if i<>-1 then

　　　　 begin

　　　　　　　 GetBasicinfoPortType.DelVersion(listview1.Items[i].SubItems.strings[0])

　　　　　　　 List := TStringList.Create

　　　　　　　List.CommaText := GetBasicinfoPortType.Versioninfo()　　//列表数据

　　　　//初始化列表

　　　　　 ListView1.Clear

　　　　 for　j:= 1 to　List.Count do

　　　　　 begin

　　　　　　　Additem:=ListView1.Items.Add

　　　　　　　Additem.Caption:=inttostr(j)

　　　　　　　Additem.SubItems.Add(List[j-1])