Поиск файлов

← →
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 передается информация о том, какие файлы требуется найти. Почему бы ему не находить именно их. Если кто-то растолкует, какой глубинный смысл вложен Борландом в это дело - будет круто.

2TUser (28.05.04 16:59) [9]
Борландом ничего не вложено. Это API завёрнутый в газету. И никакой информации о том, что требуется найти, ты в структуре не передаёшь. Ты просто указываешь место, куда складывать инфу о найденом.

А зачем тогда в FindFirst передаются аттрибуты файла?

По приколу.

Поиск файлов Найти похожие ветки