Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.09.2018, 13:07   #1
artiom4356
Пользователь
 
Регистрация: 16.08.2013
Сообщений: 78
Восклицание Перебор файлов

Суть такова:
Код:
CDP:=GetCurrentDir+'\*';
FindeH1:=FindFirst(CDP,faAnyFile,searchResult);
FindNext(searchResult);
FindNext(searchResult);
ShowMessage(searchResult.Name);
или так
Код:
CDP:=GetCurrentDir+'\*';
k:=PChar(cdp);
FindeH1:=FindFirstFile(k,searchResult);
FindNextFile(FindeH1,searchResult);
FindNextFile(FindeH1,searchResult);
ShowMessage(String(searchResult.cFileName));
в папке где происходит поиск есть файлы самого проекта так и пара папок. Проблема: 1)Если названия папок на EN всё норм. 2)Если папки RUS то он их просто пропускает.
Нужно: Как мне изменить код (или сделать что то ещё) что бы он читал любые файлы не зависемо от имени папки.
Сори разобрался. Они просто ниже были.... только щас дошло что есть сортировка....
Помочь!=Сделать за тебя

Последний раз редактировалось artiom4356; 19.09.2018 в 13:15.
artiom4356 вне форума Ответить с цитированием
Старый 19.09.2018, 14:11   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

что-то знакомое. тоже искал перебором такие папки и очищал/удалял. но потом пользовался восстановлением системы. ты поаккуратней там
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа перебора вариантов (изменить перебор цифровой на перебор буквенный) BArt2000 Паскаль, Turbo Pascal, PascalABC.NET 5 02.03.2015 12:56
Перебор файлов с помощью CommandButton Puffi.Muffi Microsoft Office Excel 3 23.01.2014 12:20
2008: Перебор каталогов и файлов в проекте консольного приложения stinger2012 Visual C++ 0 03.05.2012 16:14
Перебор файлов Excel coder082 Microsoft Office Excel 4 08.06.2010 11:21
перебор файлов Ralf_ru Общие вопросы Delphi 11 31.03.2009 14:23