Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Рекурсивный поиск   Найти похожие ветки 

← →
Tech   (2004-04-26 13:49) [0]

Помогите пожалуйста с алгоритмом рекурсивного поиска файлов заданного типа в заданной папке.

findfirst,findnext

---

← →
Tech   (2004-04-26 13:49) [0]

Помогите пожалуйста с алгоритмом рекурсивного поиска файлов заданного типа в заданной папке.

findfirst,findnext

---

← →
MBo ©   (2004-04-26 13:54) [1]

FAQ

---

← →
MBo ©   (2004-04-26 13:54) [1]

FAQ

---

← →
Курдль ©   (2004-04-26 13:55) [2]

Функция_Поиска(Папка)
переменная Список_вложенных_папок;
нАчать
 получить Список_вложенных_папокж
 от и = 0 до Список_вложенных_папок.количество - 1 делать
 начать
   если Список_вложенных_папок(и) = Папка значитЬ
   нАчать
     Результат = Верно;
     Прервать;
   кончить иначе Результат = Функция_Поиска(Список_вложенных_папок(и));
 кончить;
кончить;

---

← →
Курдль ©   (2004-04-26 13:55) [2]

Функция_Поиска(Папка)
переменная Список_вложенных_папок;
нАчать
 получить Список_вложенных_папокж
 от и = 0 до Список_вложенных_папок.количество - 1 делать
 начать
   если Список_вложенных_папок(и) = Папка значитЬ
   нАчать
     Результат = Верно;
     Прервать;
   кончить иначе Результат = Функция_Поиска(Список_вложенных_папок(и));
 кончить;
кончить;

---

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

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c