Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   ЧАВО - Частые Вопросы и Ответы    >>    dirofile
   
 
 FIL. Как отличить файл от каталога   Sly Golovanov 27.12.1997

Учет особенностей поиска каталогов с помощью FindFirst и FindNext.


 
 

Pascal FAQ created by SLY Golovanov, 2:5020/278.13 (slightly corrected by Valery Votintsev 2:5021/22) ============================================================================== Q:> Ищу я все подкаталоги в данном каталоге процедурой FindFirst('*.*',Directory,Search), а она мне не только подкаталоги, но и все файлы находит. В чем дело? A: Глюк MS-DOS. А именно, функции 4E прерывания 21. Hужно после каждого использования FindFirst/FindNext проверять, каталог ли ты нашел: if Search.Attr and (Directory <> 0) then begin [...] end; --- * Origin: (2:5020/794.13)