Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.047 c