Скачать: CL | DM;

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

← →
GunGarry   (2006-08-24 23:16) [0]

что то я туплю
мне надо удалить все файлы занесенные в листбокс
вот:

var
x : integer
begin  
for x := 1 to listbox1.Items.Count do
 begin
   DeleteFile(listbox1.Items.Strings[x-1]);
   ListBox1.Items.delete(x-1);
 end;
end;

но при выполнении постоянно пишет List index out if bounds

---

← →
Ketmar ©   (2006-08-24 23:22) [1]

потому что от 0 до Count-1.

---

← →
Ketmar ©   (2006-08-24 23:22) [2]

а. пардон. не заметил [x-1].

---

← →
Ketmar ©   (2006-08-24 23:24) [3]

ой. нет. держите меня семеро. ЧТО ЭТО?
значит так: сторую строку цикла застрелить, как вражеского лазутчика.
после цикла вписать: listBox1.Clear().

домашнее задание: понять, почему я упал со стула. %-)

---

← →
Ketmar ©   (2006-08-24 23:24) [4]

"сторую" := "вторую".

---

← →
GunGarry   (2006-08-24 23:32) [5]

ахахх друг вот это тебя колбасит

---

← →
Ketmar ©   (2006-08-24 23:42) [6]

> [5] GunGarry   (24.08.06 23:32)
что не отменяет моего ответа. %-)

---

← →
default ©   (2006-08-25 00:19) [7]

поставь "for x := listbox1.Items.Count downto 1 do" и заработает как миленькая

---

← →
default ©   (2006-08-25 00:24) [8]

а если писать по уму, то надо
var
i : integer;
begin  
for i := 0 to listbox1.Count-1 do
  DeleteFile(listbox1.Items[i]);
ListBox1.Clear;
end

---

← →
Ketmar ©   (2006-08-25 00:24) [9]

> [7] default ©   (25.08.06 00:19)
издеваешься? %-) оно-то будет, но это же не код, а ужос...

---

← →
default ©   (2006-08-25 00:25) [10]

ах Ketmar меня опередил:) что-то я невнимательный к ночи

---

← →
default ©   (2006-08-25 00:26) [11]

Ketmar ©   (25.08.06 00:24) [9]
зато даст возможность понять причину ошибки:)

---

← →
Германн ©   (2006-08-25 01:12) [12]

> default ©   (25.08.06 00:26) [11]
>
> Ketmar ©   (25.08.06 00:24) [9]
> зато даст возможность понять причину ошибки:)
>

Возможность понять причину сей ошибки может дать список всех веток имеющихся в данный момент в прямой доступности на ДМ, в которых удаление из списка реализуется в цикле for с "прямым" счётчиком.
Не знаю только как этот список сформировать :-(

---

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

Скачать: CL | DM;



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