var i :integer; for i:=0 to TreeView1.SelectionCount-1 do TreeView1.Selections[i]
估计只能遍历了,这是ListView中的DeleteSelected方法的实现源码,它也是通过遍历来实现的。 Items.BeginUpdate; try for I := Items.Count - 1 downto 0 do if Items[I].Selected then Delete(Items[I]); finally Items.EndUpdate; end;
估计只能遍历了,这是ListView中的DeleteSelected方法的实现源码,它也是通过遍历来实现的。 Items.BeginUpdate; try for I := Items.Count - 1 downto 0 do if Items[I].Selected then Delete(Items[I]); finally Items.EndUpdate; end;
******************错了错了!! while ListView1.SelCount>0 do ListView1.Selected.Delete;
var Item: TListItem; begin Item := AListView.Selected; while Item <> nil do begin Item := AListView.GetNextItem(Item, sdAll, [isSelected]); //此时Item就是其中的一个选择的Item,可以对其进行任何操作 end; end;
i :integer;
for i:=0 to TreeView1.SelectionCount-1 do
TreeView1.Selections[i]
Items.BeginUpdate;
try
for I := Items.Count - 1 downto 0 do
if Items[I].Selected then
Delete(Items[I]);
finally
Items.EndUpdate;
end;
估计只能遍历了,这是ListView中的DeleteSelected方法的实现源码,它也是通过遍历来实现的。
Items.BeginUpdate;
try
for I := Items.Count - 1 downto 0 do
if Items[I].Selected then
Delete(Items[I]);
finally
Items.EndUpdate;
end;
******************错了错了!!
while ListView1.SelCount>0 do
ListView1.Selected.Delete;
为什么错,我不多说了(人要靠自己)
*******************************
我贴出来的是VCL的代码,不是我写的,是borland写的!
for I := Items.Count - 1 downto 0 do
我看成了:
for I := 0 to Items.Count - 1 do
有Selections[i]这个东西吗????
Item: TListItem;
begin
Item := AListView.Selected;
while Item <> nil do
begin
Item := AListView.GetNextItem(Item, sdAll, [isSelected]);
//此时Item就是其中的一个选择的Item,可以对其进行任何操作
end;
end;