Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
Рекурсивный поиск Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.035 c
