Поиск папок по сети

[Tw1X]

Сообщение от min@y™

показывай.

Я прошу прощения, я не совсем понял как вам показать. поэтому прикладываю мою попытку использования данной процедуры.

[min@y™]

так и речь была о о том, что НЕЛЬЗЯ сравнивать ОДИН бит (48 and 16) со ВСЕМ блоком атрибутов.

речь шла неправильно. ибо именно так выясняется состояние отдельного бита в слове (в данном случае - в слове атрибутов): если 4-й бит установлен, значит объект является каталогом, иначе - не является.

[evg_m]

если 4-й бит установлен,

совршенно верно, но вот если мы в блоке атрибутов "погасим" все прочие

sr.Attr and fadirectory

то СОВПАДЕНИЕ с ИСХОДНЫМ блоком

(=sr.Attr)

будет только в некоторых случаях (если НЕ БУДЕТ установлено НИ ОДНОГО ДРУГОГО атрибута). О чем велась речь в топике по ссылке. (цифры 48 16 кстати взялись именно оттуда)

если уж хочется сравнивать c исходным то

sr.Attr  or  fadirectry =sr.Arr

включение данного атрибута НЕ оказывает влияния, значит он УЖЕ установлен.

[min@y™]

будет только в некоторых случаях (если НЕ БУДЕТ установлено НИ ОДНОГО ДРУГОГО атрибута).

ну и я про то же самое: сравнение <> 0 означает, что объект является каталогом (в том числе).

[Аватар]

Формально:
if (sr.dwFileAttributes and faDirectory)<>0 - хотя бы один из битов маски установлен
if (sr.dwFileAttributes and faDirectory)=faDirectory - все биты маски установлены
Но, поскольку известно, что в конкретной маске только один бит установлен, то без разницы. Но второе методологически более правильно

[Tw1X]

Сообщение от Аватар

Формально:
if (sr.dwFileAttributes and faDirectory)<>0 - хотя бы один из битов маски установлен
if (sr.dwFileAttributes and faDirectory)=faDirectory - все биты маски установлены
Но, поскольку известно, что в конкретной маске только один бит установлен, то без разницы. Но второе методологически более правильно

тут sr типа Tsearchrec;

[min@y™]

if (sr.dwFileAttributes and faDirectory)<>0 - хотя бы один из битов маски установлен
if (sr.dwFileAttributes and faDirectory)=faDirectory - все биты маски установлены

да неужели?

[Аватар]

Для ТС писалось. Но приятно, что и для маститых откровение

[min@y™]

это сарказм, если чо.
отпишусь-ка я, пока не началось.

[evg_m]

Сообщение от Tw1X

http://www.delphi-manual.ru/search-f...hp?sample=view
пользовался этим мануалом. там было условие
if (F.Attr and faDyrectory)=F.Attr
then S:='Это каталог';

на это можно ответить так
[url]http://www.gunsmoker.ru/2010/05/90.html[/url
и очень жаль что такое называют УРОКАМИ.