Текущий архив: 2003.04.07;
Скачать: CL | DM;

Вниз

Удаление элементов из 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]

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

---

← →
vlad40 ©   (2003-03-26 11:48) [4]

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

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

---

← →
[BAD]Angel ©   (2003-03-28 19:26) [5]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c