 Поиск файла, название известно, поддиректория - нет., Маска не срабатывает. |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| TarasBer |
 7.11.2009 17:02
Сообщение
#1
|
 Злостный любитель  Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация:  62   |
Res := FindFirst('Models\*\ЛМ-68.md', faAnyFile, F);
Не находит. Если сказать тупо: Res := FindFirst('Models\ЛМ, ЛВС\ЛМ-68.md', faAnyFile, F); То да, он честно находит ЛМ-68.md Но название папки-то заранее не известно, вот в чём суть. -------------------- |
   |
 
|
  |
Ответов
| volvo |
7.11.2009 22:14
Сообщение
#2
|
|
Гость |
Цитата На выделенной строке выдаёт Incompatible types: 'Cardinal' and 'TSearchRec' А в Uses поменять местами SysUtils и Windows (чтоб SysUtils был подключен ПОСЛЕ Windows) не догадался? Есть же WinAPI-функция FindClose, которая получает хендл файла. А в Паскаль/Дельфи есть не очень приятная особенность: описание функции в модуле подключенном ПОЗЖЕ перекрывает описание, имеющееся в модуле, подключенном РАНЬШЕ. Так что либо как я написал выше (менять модули местами при подключении), либоSysUtils.FindClose(SearchRec);, но вызывать ее надо. Иначе получишь утечку ресурсов... |
|
|
|
Сообщений в этой теме
TarasBer Поиск файла, название известно, поддиректория - нет. 7.11.2009 17:02
volvo FindFirst - вообще очень глючна, причем это не про... 7.11.2009 17:14 TarasBer Да я вообще понимаю, что эта функция - часть ОС.
... 7.11.2009 17:19 volvo Я бы, наверное, написал функцию, проверяющую, подх... 7.11.2009 17:29 TarasBer Но для этого надо написать поиск папок, а этого я ... 7.11.2009 17:39 volvo А не надо искать с faDir, ищи с faAnyFile и потом ... 7.11.2009 18:36 TarasBer Сделал по аналогии, заработало, спасибо. 7.11.2009 18:54 Unconnected У меня, помню, постоянно на строке FindClose(SRec)... 7.11.2009 20:07 volvo Не знаю, только что гонял в консоли, работает, зар... 7.11.2009 20:22 Unconnected В такой процедуре в консоли:
Procedure ScanDir(Di... 7.11.2009 21:22
Unconnected А в Uses поменять местами SysUtils и Windows (чтоб... 7.11.2009 22:18 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.07.2025 10:51 |