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