|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
20.11.2012, 21:49 | #11 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Да, ты правильно понял.
I'm learning to live...
|
21.11.2012, 12:43 | #12 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
21.11.2012, 12:58 | #13 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
зачем в чём-то копаться то?!!
Вам же уже почти готовый код скинули (хотя Вы такой же (аналогичный) код легко поиском по форуму могли найти). Добавьте глобальные переменные-счётчики. В них подсчитывайте файлы/папки. Если нужно куда-то сохранять имена файлов/папок, то рекомендую воспользоваться объектом класса TStringList... и всё. и не надо копаться в FindFirst! |
21.11.2012, 13:06 | #14 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
Есть в модуле такие коды к этой функции:
Код:
Код:
Почему?
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. |
21.11.2012, 13:10 | #15 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Правильно делает:
Код:
Код:
I'm learning to live...
|
21.11.2012, 13:14 | #16 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
саша40, повторю вопрос. Чем предложенный код Вас не устроил?! |
|
21.11.2012, 14:07 | #17 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
07.01.2024, 18:08 | #18 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
На форме окно вывода Memo и Кнопка.
Код:
а в условии цикла вместо бесконечного условия можно задать глубину поиска папок Код:
На Win 10 за 3-8 секунды находит более 27.000 папок. пытался ещё как-то более причесать код и сделать более быстрым саму процедуру поиска, но не смог. на ассемблер его перевести что ли?
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
Последний раз редактировалось NetSpace; 07.01.2024 в 18:11. |
08.01.2024, 18:34 | #20 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,834
|
я посмотрел GetFiles() в исходнике IOUtils.pas. те же процедуры, красиво упрятанные в оболочки, чтоб было меньше мороки у начинающих программистов. может и имеет смысл, когда только учишься...
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Файлы и папки | X@OC | Общие вопросы Delphi | 2 | 13.09.2011 21:18 |
Поиск папки по имени в директории | artemavd | Общие вопросы Delphi | 4 | 06.08.2010 08:18 |
Прога не очет искать директории. А вот файлы нрмально ищет. | TwiX | Общие вопросы C/C++ | 3 | 18.03.2010 04:17 |
Как узнать все папки в указаной директории? | blackstersl | Общие вопросы Delphi | 4 | 17.06.2009 13:23 |
Выбрать имя папки из директории | Македонский | Общие вопросы Delphi | 15 | 29.08.2007 10:48 |