Скачать: CL | DM;

Не сработало FindNext   Найти похожие ветки 

← →
snake-as ©   (2008-12-05 15:48) [0]

Здравствуйте, мастера. У меня такой вопрос. Сделал поиск файлов на Делфи. Он искал по папкам и выдавал полный список. Но вот что получилось: у меня была папка 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;

---

← →
sniknik ©   (2008-12-05 15:58) [1]

> у нее, оказывается атрибут 48(не знаю, что это)
faDirectory 16 + faArchive 32 = ?

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

---

← →
Anatoly Podgoretsky ©   (2008-12-05 16:17) [2]

> snake-as  (05.12.2008 15:48:00)  [0]

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

---

← →
Slym ©   (2008-12-05 17:10) [3]

Anatoly Podgoretsky ©   (05.12.08 16:17) [2]
faDirectory
А я говорил, он и в эти грабли наступил :)
http://delphimaster.net/view/2-1227969919/

---

← →
Slym ©   (2008-12-05 17:13) [4]

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

---

← →
Anatoly Podgoretsky ©   (2008-12-05 19:25) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.007 c