Поиск на примапином диске

← →
Matveih1 © (2009-12-08 16:40) [0]

Добрый день.
Вот такая проблема.
if FindFirst("F:\rate\*.*", faAnyFile, sr)= 0 then // если нашел begin repeat Memo1.Lines.Add(sr.Name + " " + IntToStr(sr.Attr)); if (sr.Attr and faAnyFile) = sr.Attr then // повторять пока есть файлы с соответствующим атрибутом begin if (SR.Attr <> faDirectory) then begin Memo2.Lines.Add(sr.Name); end; end; until FindNext(sr) <> 0; FindClose(sr); end;
memo1 заполняется содержимым, а вот memo2 нет т.к. у файлов sr.Attr = 8224.
Если все скопировать на локальный диск то все работает хорошо и sr.Attr = 32. Почему так? и Как правильно организовать поиск на сетевом диске?

← →
clickmaker © (2009-12-08 16:46) [1]

> т.к. у файлов sr.Attr = 8224

подсказка
8224 = 8192 or 32

← →
Германн © (2009-12-08 17:04) [2]

> if (SR.Attr <> faDirectory) then

Кто же так сравнивает?

← →
Sha © (2009-12-08 17:17) [3]

> Matveih1

пост [16] прочитай отсюда
http://delphimaster.net/view/2-1259683232/

если будут вопросы, лучше там задавай, нафига 10 веток заводить

> clickmaker © (08.12.09 16:46) [1]
>
> > т.к. у файлов sr.Attr = 8224
>
> подсказка
> 8224 = 8192 or 32

Спасибо. Да действительно так работает

Поиск на примапином диске Найти похожие ветки