文件名称:tree
介绍说明－－下载内容均来自于网络，请自行研究使用
建立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])
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