Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не сработало FindNext

snake-as © (2008-12-05 15:48:00)
Здравствуйте, мастера. У меня такой вопрос. Сделал поиск файлов на Делфи. Он искал по папкам и выдавал полный список. Но вот что получилось: у меня была папка Oper в папке, в которой он искал. Я нажал поиск, он в этой подпапке ничего не нашел. Начал отлаживать, у нее, оказывается атрибут 48(не знаю, что это), а не faDirectory. Хотя раньше точно работало. Потом создал заново папку вместо этой, вложил туда эти же файлы и он их нашел. В чем может быть проблема? Атрибуты я у этой папке не менял, скрытой не делал и т.д.
На всякий случай, вот кусоке кода:
if (Sr.Attr = faDirectory) and ((Sr.Name='.') or (Sr.Name = '..')) then//÷òîáû íå áûëî ôàéëîâ . è..
begin
Res := FindNext(Sr);
Continue;//ïðîäîëæàåì öèêë
end;

if (Sr.Attr=faDirectory) then//åñëè íàøëè äèðåêòîðèþ, òî èùåì ôàéëû â íåé
begin
Add := Sr.Name + '\';
Result := FindTheFile(DirName + Sr.Name+'\', Add, FileName);//ðåêóðñèâíî âûçûâàåì íàøó ïðîöåäóðó

//Ïðîâåðÿåì, íàøåë ëè îí ôàéë
if CopyEnd(Result, GetNumberOfSymbolFromTheEnd(Result, '\')) = FileName then
Exit;
Res := FindNext(Sr);//èùåì ñëåä. ôàéë
Continue;//ïðîäîëæàåì öèêë
end;

Anatoly Podgoretsky (2008-12-05 19:25:00) [1]

> Slym © (05.12.08 17:10) [3]

Ты у нас просто Нострадамус!

Slym (2008-12-05 17:13:00) [2]
Anatoly Podgoretsky © (05.12.08 16:17) [2]
bits.aspx
неосилит - многабукаф...
if (Sr.Attr and faDirectory)<>0 then

Slym (2008-12-05 17:10:00) [3]
Anatoly Podgoretsky © (05.12.08 16:17) [2]
faDirectory
А я говорил, он и в эти грабли наступил :)
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1227969919&n=18

Anatoly Podgoretsky (2008-12-05 16:17:00) [4]
> snake-as (05.12.2008 15:48:00) [0]

http://www.podgoretsky.com/Redir.aspx?id=137&DownloadFile=~/ddp/bits.aspx

sniknik (2008-12-05 15:58:00) [5]
> у нее, оказывается атрибут 48(не знаю, что это)
faDirectory 16 + faArchive 32 = ?

нельзя делать прямое сравнение, файлы могуи иметь набор атрибутов, а не один.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »