Mega Code Archive
Delete Multiple Selected Items in a TListBox Delphi Control
<![CDATA[
Title: Delete Multiple Selected Items in a TListBox Delphi Control
The TListBox Delphi control displays collection of strings in a scrollable list. By setting the MultiSelect property to true, the user can select more than one item at a time.
How to Remove Selected ListBox Items
When MultiSelect is true, the user can select multiple items in the control, and the SelCount property indicates the number of selected items.
To remove all the selected items from the list box you need to call the Delete method of the underlying TStrings object.
Since Delete changes the ordinal position of the remaining items in the list, when deleting items from the list using the for loop you need to start iterating from the end of he list. The Selected property tells you if an item at a particular index is selected.
Here's the code to delete multiple selected items in the list box:
//make sure ListBox1.MultiSelect = true
var
ii : integer;
begin
with ListBox1 do
begin
for ii := -1 + Items.Count downto 0 do
if Selected[ii] then Items.Delete(ii) ;
end;
end;
]]>