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 меня опередил:) что-то я невнимательный к ночи

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

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

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