Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Удаление файлов  (Прочитано 8726 раз)
0 Пользователей и 4 Гостей смотрят эту тему.
liones
Постоялец

ru
Offline Offline
Пол: Женский

« : 19-05-2009 04:47 » new

Не пойму почему удаляет не все файлы
Код:
if FindFirst('_Q*.db', $23, FileName) = 0 then
begin
repeat
DeleteFile(FileName.Name)
until FindNext(FileName) <> 0;
end;
я думаю, что ищет в одном каталоге, а мне надо что на всем диске. А как сделать не знаю
Записан
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #1 : 19-05-2009 05:34 » 

Начать в корне и сделать рекурсию по подкаталогам.
Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
liones
Постоялец

ru
Offline Offline
Пол: Женский

« Ответ #2 : 19-05-2009 05:40 » 

Еще со времен учебы никто так мне и не объяснил толком что такое рекурсия и с чем ее едят. Стыдно, но не понимаю
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 19-05-2009 05:51 » 

liones, у тебя есть возможность ознакомиться самостоятельно.
Здесь статья (из 4 частей) о рекурсии:
https://club.shelek.ru/viewart.php?id=184
https://club.shelek.ru/viewart.php?id=205
https://club.shelek.ru/viewart.php?id=220
https://club.shelek.ru/viewart.php?id=226
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Джон
просто
Администратор

de
Offline Offline
Пол: Мужской

« Ответ #4 : 19-05-2009 09:06 » 

Еще со времен учебы никто так мне и не объяснил толком что такое рекурсия и с чем ее едят. Стыдно, но не понимаю

Самое простое и толковое объяснение даёт аналитическая энциклопедия:

Цитата
рекурсия ж. см. рекурсия
Записан

Я вам что? Дурак? По выходным и праздникам на работе работать. По выходным и праздникам я работаю дома.
"Just because the language allows you to do something does not mean that it’s the correct thing to do." Trey Nash
"Physics is like sex: sure, it may give some practical results, but that's not why we do it." Richard P. Feynman
"All science is either physics or stamp collecting." Ernest Rutherford
"Wer will, findet Wege, wer nicht will, findet Gründe."
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #5 : 19-05-2009 09:10 » 

Более простым языком: прямой или косвенный вызов программы (или подпрограммы) самой себя.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #6 : 19-05-2009 12:53 » 

ИМХО ( А черт его знает...), после FindFirst должна следовать FindNext.
Записан

С уважением, Oldy.
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #7 : 19-05-2009 13:14 » 

Oldy, так там есть в цикле FindNext
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #8 : 19-05-2009 17:41 » 

Прошу прощения, недоглядел.
Записан

С уважением, Oldy.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines