Цитата(Fantasist @ 29.9.2003, 03:43)

Цитата При этом все отлично работает  ......... я случайно сам не ошибся? Лично я в это еще не въехал Не ошибся. Attr - это набор битовых флагов. Если файл отвечает определенному атрибуту (скрытый, директория, системный и т.п.) устанавливается соответсвующий бит в Attr.

Вот это очень интересно
Я сделал чтобы программа выводила значение [/B]SearchRec.Attr and faDirectory[B] в файл и получается что если директория то значение 16, если не директория то 0 ....... но не понятно почему, наверно просто я не до конца понял что такое AND:

Код

1 and 1 = 1 1 and 0 = 0 0 and 1 = 0 0 and 0 = 0

Правильно? Вроде да, но писал по памяти .... и то это я знаю это с элетроники ..... но как происходит тоже самое но со значениями INTEGER ??

>но как происходит тоже самое но со значениями INTEGER ?

Побитово... 1-й с 1-ым, 2-й со 2-ым...

PS Или это шутка? :\ Такие вещи надо понимать...

Это сообщение отредактировал(а) dm9 - 29.9.2003, 10:49

Цитата(dm9 @ 29.9.2003, 09:49)

>но как происходит тоже самое но со значениями INTEGER ? Побитово... 1-й с 1-ым, 2-й со 2-ым... PS Или это шутка? :\ Такие вещи надо понимать...

Нет не шутка ..... не сталкивался с этим, но:

Код

22 and 11 = 2 22 and 22 = 22 22 and 33 = 0 11 and 55 = 3

и так можно продолжать долго, только это мне не понято ..... не вижу логики, если можно, то сложите мне это побитам =)

22 = 10110
11 = 01011
======== AND
02 = 00010

22 = 010110
33 = 100001
========= AND
00 = 000000

А, забыл сказать, как получаются единицы и нули:
22 = 16+4+2 = 2^4 + 2^2 + 2^1 = 10110 (нули стоят на местах 2^3 и 2^0)
11 = 8+2+1 ...

Ну блин это должны в школе рассказывать...

Но тогда как обьяснить это?

Цитата

if (SearchRec.Attr and faDirectory) <> 0 then begin if (SearchRec.Name <> '' ) and (SearchRec.Name <> '.') and (SearchRec.Name <> '..')   then MyRemoveDir(sFileName);   else begin

Это сообщение отредактировал(а) Monty - 29.9.2003, 19:05

Цитата

Но тогда как обьяснить это?

Monty, ну прям не знаю...
faDirectory = $10 = 16 = 00010000;
Проверкой (Attr and faDirectory) <> 0 проверяется, включен ли нужный бит в аттрибутах. Я просто так привык писать - так быстрее пишется и код получается на микроны быстрее (т.к. для сравнение с нулем быстрее, чем сравнение с к-л числом), чем такая проверка:
if (Attr and faDirectory) = faDirectory...

Хотя если faDirectory было бы комбинацией нескольких бит, то пришлось бы делать второй вариант...

Пример:
1) Attr = 00110110 (число от понта, но 4-ый бит включен, значит это каталог)
(Attr and faDirectory) = (00110110 and 00010000) = 00010000 = 16
if (16 <> 0) then ... - видно, что if сработает...

2) Attr = 00100110 (тоже самое число, но 4-ый бит выключен, это не каталог)
(Attr and faDirectory) = (00100110 and 00010000) = 00000000 = 0
if (0 <> 0) then ... - видно, что if не сработает...

Это сообщение отредактировал(а) p0s0l - 29.9.2003, 21:32

p0s0l спасибо, теперь все ясно .... что какжый бит отвечает за то или иное значение атрибута ... т.е. четвертый бит это директория ...... все ясно =)
Именно этого я не знал ...... думал что не по битам, а по числам ........

Это сообщение отредактировал(а) Monty - 29.9.2003, 22:42

Вот вам кусок Windows.pas :

Код

{line 2250}  FILE_SHARE_READ                     = $00000001;  {$EXTERNALSYM FILE_SHARE_READ}  FILE_SHARE_WRITE                    = $00000002;  {$EXTERNALSYM FILE_SHARE_WRITE}  FILE_SHARE_DELETE                   = $00000004;  {$EXTERNALSYM FILE_SHARE_DELETE}  FILE_ATTRIBUTE_READONLY             = $00000001;  {$EXTERNALSYM FILE_ATTRIBUTE_READONLY}  FILE_ATTRIBUTE_HIDDEN               = $00000002;  {$EXTERNALSYM FILE_ATTRIBUTE_HIDDEN}  FILE_ATTRIBUTE_SYSTEM               = $00000004;  {$EXTERNALSYM FILE_ATTRIBUTE_SYSTEM}  FILE_ATTRIBUTE_DIRECTORY            = $00000010;  {$EXTERNALSYM FILE_ATTRIBUTE_DIRECTORY}  FILE_ATTRIBUTE_ARCHIVE              = $00000020;  {$EXTERNALSYM FILE_ATTRIBUTE_ARCHIVE}  FILE_ATTRIBUTE_NORMAL               = $00000080;  {$EXTERNALSYM FILE_ATTRIBUTE_NORMAL}  FILE_ATTRIBUTE_TEMPORARY            = $00000100;  {$EXTERNALSYM FILE_ATTRIBUTE_TEMPORARY}  FILE_ATTRIBUTE_COMPRESSED           = $00000800;  {$EXTERNALSYM FILE_ATTRIBUTE_COMPRESSED}  FILE_ATTRIBUTE_OFFLINE              = $00001000;  {$EXTERNALSYM FILE_ATTRIBUTE_OFFLINE}

Вот вам все эти аттрибуты и за что каждый отвечает. У меня дома где - то есть прога - поисковик, недоделанная, но там все работает. Там у меня были проблемы с системными папками, но потом и их пофиксил. Просто проверяйте на включенность соответствующих флагов и все.

p0s0l
Сделал как ты говорил. В конце файла:

Цитата

d:\Macro Magic\Tutorial\My Macros Exception EInOutError in module timesaver.exe at 0004E6D4. Invalid filename.

Цитата(Borland_Delphi_6 @ 1.10.2003, 09:28)

Сделал как ты говорил. В конце файла: Цитата d:\Macro Magic\Tutorial\My Macros Exception EInOutError in module timesaver.exe at 0004E6D4. Invalid filename.

Немая сцена....

Мы все, из-за угла глазевшие за здесь происходящим (прям как в порту на погрузке, или на стройке), с нетерпением ждали завершения, а получили еще одно продолжение...

Ребята, вы уж опубликуйте целиком текст который тестируете! А то вот такие вещи "Exception EInOutError in module timesaver.exe at 0004E6D4" заставляют думать, что что-то там есть еще - слишком большой адрес для консольного приложения опубликованного в самом начале.

И потом, если есть Exception EInOutError, то почему утверждают что оно не перехватывается?