Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 03.02.2018, 21:26   #1
Taras2018
Пользователь
 
Аватар для Taras2018
 
Регистрация: 13.01.2018
Сообщений: 47
Репутация: 2
По умолчанию Учитывать вложенные файлы в папки (Delphi)

Добрый вечер Товарищи. Подскажите такую функцию в Delphi.

Суть в следующем:
Есть программа которая ищет файлы в папке и вносит изменения в них, но она не учитывает вложенные папки.

Что тут прописать что бы она учитывала вложенные папки ?:
Код:

procedure Tfrm_Main.cb_SubfolderClick(Sender: TObject);
begin

end;

Taras2018 вне форума   Ответить с цитированием
Старый 03.02.2018, 21:41   #2
type_Oleg
Профессионал
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Адрес: Хазарский каганат
Сообщений: 2,433
Репутация: 1379
По умолчанию

Рекурсия , однако.
Типа имеется функция поиск_в_папке(имя_папки). Функция находит файл, который в самом деле не файл, а папка с именем папка_внутри. Тогда вызываем поиск_в_папке(папка_внутри). И т.д.

Если используете FindFirst, FindNext, то типа TSearchRec есть Attr, его надо проверять на значение faDirectory - папка ли это.
type_Oleg вне форума   Ответить с цитированием
Старый 03.02.2018, 21:46   #3
Taras2018
Пользователь
 
Аватар для Taras2018
 
Регистрация: 13.01.2018
Сообщений: 47
Репутация: 2
По умолчанию

Цитата:
Сообщение от type_Oleg Посмотреть сообщение
Рекурсия , однако.
Типа имеется функция поиск_в_папке(имя_папки). Функция находит файл, который в самом деле не файл, а папка с именем папка_внутри. Тогда вызываем поиск_в_папке(папка_внутри). И т.д.

Если используете FindFirst, FindNext, то типа TSearchRec есть Attr, его надо проверять на значение faDirectory - папка ли это.
Через TStringList и memo загружаю список каталогов и программа работает. Только не учитывает вложенные папки в эти каталоги. Пример не можете самый простой подсказать ?
Taras2018 вне форума   Ответить с цитированием
Старый 03.02.2018, 22:17   #4
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,636
Репутация: 2398

icq: 100500
skype: kick-ass
По умолчанию

готовое решение ннада? их есть у меня.
А в интернетах - не менее чем 100500 штук.

__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 03.02.2018 в 22:19.
min@y™ вне форума   Ответить с цитированием
Старый 03.02.2018, 22:23   #5
Taras2018
Пользователь
 
Аватар для Taras2018
 
Регистрация: 13.01.2018
Сообщений: 47
Репутация: 2
По умолчанию

Цитата:
Сообщение от min@y™ Посмотреть сообщение
готовое решение ннада? их есть у меня.
А в интернетах - не менее чем 100500 штук.

То есть одну строку в мою процедуру вставить, по сути то дела ?. Спасибо сейчас буду разбираться.
Taras2018 вне форума   Ответить с цитированием
Старый 03.02.2018, 22:26   #6
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,636
Репутация: 2398

icq: 100500
skype: kick-ass
По умолчанию

Цитата:
Сообщение от Taras2018 Посмотреть сообщение
То есть одну строку в мою процедуру вставить, по сути то дела ?. Спасибо сейчас буду разбираться.
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Старый 03.02.2018, 23:31   #7
Taras2018
Пользователь
 
Аватар для Taras2018
 
Регистрация: 13.01.2018
Сообщений: 47
Репутация: 2
По умолчанию

К сожалению так и не разобрался. Может у кого то еще идеи будут ?
Taras2018 вне форума   Ответить с цитированием
Старый 03.02.2018, 23:34   #8
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,636
Репутация: 2398

icq: 100500
skype: kick-ass
По умолчанию

Цитата:
Сообщение от Taras2018 Посмотреть сообщение
К сожалению так и не разобрался. Может у кого то еще идеи будут ?
Интересно, а как ты разбирался-то?
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Старый 03.02.2018, 23:36   #9
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,078
Репутация: 6385
По умолчанию

Цитата:
Может у кого то еще идеи будут ?
Заменить рекурсию итерационным циклом. Рекурсией в данном случае проще. Больше нет идей ))
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума   Ответить с цитированием
Старый 03.02.2018, 23:49   #10
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,636
Репутация: 2398

icq: 100500
skype: kick-ass
По умолчанию

Цитата:
Сообщение от Taras2018 Посмотреть сообщение
К сожалению так и не разобрался. Может у кого то еще идеи будут ?
production.jpg
Для совсем ленивой школоты есть готовый компонент. Плюхнул на форму - и в продакшон!

__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с циклом! (вложенные циклы и сохранять результаты вычислений в текстовые файлы) Hamza117 Lazarus, Free Pascal, CodeTyphon 8 09.11.2017 16:42
Как можно редактировать вложенные в базу(mdf) файлы? picunda SQL, базы данных 0 09.03.2017 19:56
Папки и файлы SUPER123 Win Api 8 04.09.2013 15:18
Файлы и папки X@OC Общие вопросы Delphi 2 13.09.2011 21:18
удалить файлы и папки Viten2 Общие вопросы Delphi 31 08.09.2011 13:18


03:39.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru