![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Да, ты правильно понял.
I'm learning to live...
|
![]() |
![]() |
![]() |
#12 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
![]()
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. ![]() |
![]() |
![]() |
![]() |
#13 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
зачем в чём-то копаться то?!!
Вам же уже почти готовый код скинули (хотя Вы такой же (аналогичный) код легко поиском по форуму могли найти). Добавьте глобальные переменные-счётчики. В них подсчитывайте файлы/папки. Если нужно куда-то сохранять имена файлов/папок, то рекомендую воспользоваться объектом класса TStringList... и всё. и не надо копаться в FindFirst! |
![]() |
![]() |
![]() |
#14 |
Участник клуба
Регистрация: 12.09.2012
Сообщений: 1,030
|
![]()
Есть в модуле такие коды к этой функции:
Код:
Код:
Почему?
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби. ![]() |
![]() |
![]() |
![]() |
#15 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Правильно делает:
Код:
Код:
I'm learning to live...
|
![]() |
![]() |
![]() |
#16 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]() Цитата:
саша40, повторю вопрос. Чем предложенный код Вас не устроил?! |
|
![]() |
![]() |
![]() |
#17 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
![]()
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#18 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,827
|
![]()
На форме окно вывода Memo и Кнопка.
Код:
а в условии цикла вместо бесконечного условия можно задать глубину поиска папок Код:
На Win 10 за 3-8 секунды находит более 27.000 папок. пытался ещё как-то более причесать код и сделать более быстрым саму процедуру поиска, но не смог. на ассемблер его перевести что ли?
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
Последний раз редактировалось NetSpace; 07.01.2024 в 18:11. |
![]() |
![]() |
![]() |
#20 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,827
|
![]()
я посмотрел 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 |