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])

tree.txt

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．