ListView

← →
Александр © (2002-08-18 14:31) [0]

Скажите пожалуйста как правильно удалить все выбранные пользователем строки?

← →
stany © (2002-08-18 15:02) [1]

Грубо говоря так:ListView1.Items.Delete[ListView1.Selected.Index];

← →
McSimm © (2002-08-18 15:03) [2]

Например так:

for i := LV.Items.Count - 1 downto 0 do
if LV.Items[I].Selected then LV.Items[I].Delete

← →
Александр © (2002-08-18 15:54) [3]

Спасибо. Я примерно так и делал, только он мне писал ошибку какую-то, что сперва надо закрыть какую-то форму

← →
cypher © (2002-08-18 16:51) [4]

помоему это не прально
например, Count = 10...
Выделяем пять штук... начинаем удалять... выскочит ошибка out of range. так как Count при каждом удалении будет уменьшаться, но цикл будет крутиться до 10.
я предлагаю такой вариант

i:=0; while i<LV.Items.Count do begin if LV.Items[i].Selected then LV.Delete(i); Inc(i); end;

хотя я могу и ошибаться...

← →
TTCustomDelphiMaster © (2002-08-18 17:11) [5]

> cypher © (18.08.02 16:51)
> хотя я могу и ошибаться...

Точно ошибаешься

← →
Александр © (2002-08-18 17:21) [6]

Всем свойственно ошибаться.

← →
Юрий Зотов © (2002-08-18 19:05) [7]

> cypher © (18.08.02 16:51)

Цикл будет крутиться не до 10, а до нуля - вы не обратили внимание на downto. Поэтому ошибки и не возникнет. В восходящем цикле она бы точно возникла - как Вы и сказали.

сдаюсь =)

hmmm a Selected property ne bistree proverit" v nachale? a to esli list bol"shoi a item naprimer v nachale, to ne obosnovania trata vremeni imho...

ia by skazal tak
if ListView1.SelCount>0 then begin i:=(ListView1.Selected as TListItem).Index; Listview1.items.BeginUpdate; while i<ListView1.Items.Count do begin if ListView1.Items[i].Selected then ListView1.Items[i].Delete else Inc(i); end; Listview1.items.EndUpdate; end;
moshno viloby eshe ne prodolshat" kogda udaleno itemov stokoshe skoko SelCount, nu da ladno

ListView Найти похожие ветки