Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

Глюк   Найти похожие ветки 

 
LiteStone   (2007-01-28 11:04) [0]

Удалено модератором
Примечание: п. 5.


 
Virgo_Style ©   (2007-01-28 11:15) [1]

первый вариант, по всей видимости, должен будет удалить 5 файлов через один, хотя без кода затруднительно сказать что-либо.

Хмм, а ведь ты, пожалуй, begin-end забыл, вот что...


 
SoulFlow ©   (2007-01-28 11:31) [2]

Полный вариант

1 раз повторяется
for i:=min to max do begin
DeleteFile(Listbox.Itesm.String[Min]);
Listbox.Items.Delete(Min);
end;

Столько сколько надо
for i:=min to max do begin
Listbox.Items.Delete(Min);
end;


 
LiteStone   (2007-01-28 11:33) [3]

SoulFlow это мой  второй ник


 
SerJaNT ©   (2007-01-28 11:38) [4]

> [0] LiteStone   (28.01.07 11:04)

Я нихрена не понял в чем проблема! Сформулируй лучше вопрос и поставь запятые где надо.


 
antonn ©   (2007-01-28 11:47) [5]

думаю проблема в for i:=max downto min
:)


 
LiteStone   (2007-01-28 11:51) [6]

Поясняю для SerJaNT

Цикл выполняется 1 раз
for i:=min to max do begin
DeleteFile(Listbox.Itesm.String[Min]);
Listbox.Items.Delete(Min);
end;

Цикл выполняется от min до max
for i:=min to max do begin
Listbox.Items.Delete(Min);
end;

Функция DeleteFile почему-то даёт циклу выполняться только 1 раз.


 
LiteStone   (2007-01-28 11:58) [7]

antonn проблемы идут одна за другой.

Цикл выполняется(Это уже хорошо),из Listbox удаляется все как надо,
но файлы с диска не удаляются.


 
EvS ©   (2007-01-28 12:11) [8]

> for i:=min to max do begin
> DeleteFile(Listbox.Itesm.String[Min]);
> Listbox.Items.Delete(Min);
> end;
>
> Цикл выполняется от min до max
> for i:=min to max do begin
> Listbox.Items.Delete(Min);
> end;

Почувствуй разницу:
 for i:=min to max do begin
DeleteFile(Listbox.Itesm.String[i]);
Listbox.Items.Delete(i);
end;

Цикл выполняется от min до max
for i:=min to max do begin
Listbox.Items.Delete(i);
end;


 
SerJaNT ©   (2007-01-28 12:21) [9]

Может это из-за того что, если в цикле удалять элементы листбокса, то из-за удаления сбивается нумерация item"ов?


 
SerJaNT ©   (2007-01-28 12:23) [10]

Кинь исходник!



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

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

Наверх




Память: 0.48 MB
Время: 0.05 c
2-1170067134
asq
2007-01-29 13:38
2007.02.18
_QSQL488.DBF


3-1164367891
nick_van_rijn
2006-11-24 14:31
2007.02.18
ADO & lookup


1-1166875068
Новый
2006-12-23 14:57
2007.02.18
А можно ли сейчас как-нибудь купить Delphi 7???


3-1164095083
Patrick
2006-11-21 10:44
2007.02.18
Репликация в Oracle


2-1170112622
kolyann..
2007-01-30 02:17
2007.02.18
как получать данные с usb порта