Текущий архив: 2004.06.13;
Скачать: CL | DM;
Вниз
Поиск файлов Найти похожие ветки
← →
Term © (2004-05-28 12:12) [0]Ветку почему то удалили...
AssignFile(f,"spisok.txt");
rewrite(f);
if FindFirst("c:\Мои документы\*.*", faAnyFile, DirInfo) = 0 then
repeat
WriteLn(f,DirInfo.Name);
FindNext(DirInfo);
until FindNext(DirInfo) <> 0;
FindClose(DirInfo);
close(f);
почему данный код перебирает не все файлы в каталоге???
всё как в хелпе вроде.
← →
MU © (2004-05-28 12:14) [1]FindNext(DirInfo);
until FindNext(DirInfo) <> 0;
Зачем ДВА раза?!
← →
Term © (2004-05-28 12:17) [2]понял, просто невнимательность, спасибо
← →
Term © (2004-05-28 15:49) [3]а как мне получить список каталогов, если задаю так
FindFirst("c:\Мои документы\*.*", faDirectory, DirInfo)
всё равно получаю весь список файлов, а нужно только список каталогов
← →
Term © (2004-05-28 15:56) [4]ну ктонить???? подскажите
← →
WebErr © (2004-05-28 16:04) [5]У каталогов расширение .cat ^^
← →
Term © (2004-05-28 16:07) [6]:-)))))))))))))
хотелось бы получить серьёзный ответ
← →
Плохиш (2004-05-28 16:12) [7]Добавить проверку на faDirectory
← →
Term © (2004-05-28 16:14) [8]понятно
← →
TUser (2004-05-28 16:59) [9]
> всё как в хелпе вроде
Нет, в хелпе не так. Там учтено [12], хотя, честно говоря, мне не понятно, зачем еще проверять. Вроде бы (по логике вещей) в FindFirst/FindNext передается информация о том, какие файлы требуется найти. Почему бы ему не находить именно их. Если кто-то растолкует, какой глубинный смысл вложен Борландом в это дело - будет круто.
← →
Fay © (2004-05-28 18:53) [10]2TUser (28.05.04 16:59) [9]
Борландом ничего не вложено. Это API завёрнутый в газету. И никакой информации о том, что требуется найти, ты в структуре не передаёшь. Ты просто указываешь место, куда складывать инфу о найденом.
← →
TUser © (2004-05-28 19:51) [11]А зачем тогда в FindFirst передаются аттрибуты файла?
← →
Fay © (2004-05-28 23:02) [12]По приколу.
Страницы: 1 вся ветка
Текущий архив: 2004.06.13;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.042 c
