9 940801 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-22 #2 For I:= ListView.Items.Count -1 downto 0 do begin if ListView.Items.Selected then ListView.Items.Delete;
For I:= ListView.Items.Count -1 downto 0 do begin if ListView.Items.Selected then ListView.Items.Delete;
C cgh0717 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-22 #3 procedure Del_all; var i:integer; begin ListView1.BeginUpdata; For I:= ListView.Items.Count -1 downto 0 do begin if ListView1.Items.Selected then ListView1.Items.Delete; ListView1.endupdata; end;
procedure Del_all; var i:integer; begin ListView1.BeginUpdata; For I:= ListView.Items.Count -1 downto 0 do begin if ListView1.Items.Selected then ListView1.Items.Delete; ListView1.endupdata; end;