- Category:
- Delphi VCL
- Tags:
-
[Text]
- File Size:
- 3kb
- Update:
- 2016-02-25
- Downloads:
- 0 Times
- Uploaded by:
- nic
Description: 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])
To Search:
File list (Check if you may need any files):
tree.txt
Download