Search - tree j

Search - tree j - List

[Delphi VCL] tree DL : 0: 建立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])
Date : 2026-01-15 Size : 3kb User : nic