Удаление элементов из ListBox

← →
[BAD]Angel © (2003-03-26 11:39) [0]

Мастера подскажите, как удалить все выделенные элементы из ListBox"a (MultiSelect=true)?

Этот вариант не проходит :(

procedure TForm1.Button1Click(Sender: TObject); var i, j, k: byte; begin i:=0; j:=0; k:=0; for i:=0 to ListBox1.Items.Count-3 do if ListBox1.Selected[i] then listbox1.items.delete(i); end;

← →
Шурик Ш © (2003-03-26 11:45) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i:=0;
while i < ListBox1.Items.Count do
if ListBox1.Selected[i] then
listbox1.items.delete(i);
else
i:=i+1;
end;

← →
REA © (2003-03-26 11:47) [2]

ну можно попробовать:
With ListBox1 Do
while i<Items.Count Do
if Selected[i] then items.delete(i)
Else Inc(i);

← →
[BAD]Angel © (2003-03-26 11:48) [3]

СПАСИБО! Выручил :)

Не понятно, почему цикл до ListBox1.Items.Count-3

Сделай цикл for i:=ListBox1.Items.Count-1 downto 0

Ой... :) это опечатка :))) была 1

Но все равно уже сделал спасибо!

Удаление элементов из ListBox Найти похожие ветки