procedure TForm1.TreeView1Click(Sender: TObject);
var
i,j,Mask:integer;
List:Tlistitem;
begin
for i:=0 to Treeview1.Items.Count-1 do begin
if Treeview1.Selected.getFirstChild=Treeview1.Items[i] then begin
Mask:=i;
end;
end;
for j:=0 to Treeview1.Selected.count-1 do begin
List:=listview1.Items.Add;
list.Caption:=Treeview1.Items[Mask+j].Text;
end;end;
var
i,j,Mask:integer;
List:Tlistitem;
begin
for i:=0 to Treeview1.Items.Count-1 do begin
if Treeview1.Selected.getFirstChild=Treeview1.Items[i] then begin
Mask:=i;
end;
end;
for j:=0 to Treeview1.Selected.count-1 do begin
List:=listview1.Items.Add;
list.Caption:=Treeview1.Items[Mask+j].Text;
end;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货