Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 веток заводить

---

← →
Matveih1 ©   (2009-12-08 17:52) [4]

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2010.01.31;
Скачать: [xml.tar.bz2];

Наверх

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