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

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

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

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

Matveih1 © (2009-12-08 16:40:00)
Добрый день.
Вот такая проблема.
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. Почему так? и Как правильно организовать поиск на сетевом диске?

Matveih1 (2009-12-08 17:52:00) [1]

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

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

Sha (2009-12-08 17:17:00) [2]
> Matveih1

пост [16] прочитай отсюда
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1259683232&n=18

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

Германн (2009-12-08 17:04:00) [3]

> if (SR.Attr <> faDirectory) then

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

clickmaker (2009-12-08 16:46:00) [4]
> т.к. у файлов sr.Attr = 8224

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

Наверх

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