Объясните строки

[toxa-kachok]

Здравствуйте. Объясните пожалуйста несколько строк в программе.

Uses DOS;

Procedure FileFind(Dir,FindName : PathStr);
{Поиск файлов по маске по всему диску}

 Procedure SearchDir(Dir : PathStr);
 Var
   SRec       : SearchRec;
 begin
   {Поиск файлов по маске}
   if Dir[Length(Dir)] <> '\' then Dir := Dir+'\';
   FindFirst(Dir + FindName, AnyFile, SRec);
   While DosError = 0 do
     begin
       With SRec do
        if Attr and (VolumeID + Directory) = 0 then ЭТА СТРОКА
         WriteLn(Dir + Name);
       FindNext(SRec);
     end;
   {Поиск всех вложенных каталогов, в т.ч. скрытых, системных, r/o}
   FindFirst(Dir+'*.*', Directory or ReadOnly or Hidden or SysFile, SRec);
   While DosError = 0 do
     begin
       With SRec do
        if (Attr and Directory <> 0) and (Name[1] <> '.') then ЭТА СТРОКА
         SearchDir(Dir+Name); И ЭТА
       FindNext(SRec);
     end;
 end;

begin
 SearchDir(Dir);
end;
{------------------------------------------}
{Пример поиска всех .TXT файлов на диске С:}
begin
  FileFind('c:\','*.txt');
end.

[Serge_Bliznykov]

if Attr and (VolumeID + Directory) = 0

Операция and в данном случае бинарная (побитовая) операция И
в переменной Srec.Attr (Attr: Integer находятся аттрибуты найденного файла.
они бывают:

Constant	Value	Description

faReadOnly	$00000001	Read-only files
faHidden	$00000002	Hidden files
faSysFile	$00000004	System files
faVolumeID	$00000008	Volume ID files
faDirectory	$00000010	Directory files
faArchive	$00000020	Archive files
faAnyFile	$0000003F	Any file

грубо говоря (VolumeID + Directory) - это формирование битовой маски ( т.е. числа, в котором в двоичном представлении единички в тех разрядах, в которых мы хотим проверить значения).
если проверяемые значения не равны единице (т.е. равны нулю), то значит найденный элемент файловой системы НЕ ЯВЛЯЕТСЯ меткой диска и директорией...
(т.е. мы нашли запись о файле).

(Attr and Directory <> 0)

- найденная запись - директория.

(Name[1] <> '.')

данная директория не является служебной (в любой папке, кроме корневой присутствую ещё две записи - служебные директории с именем '.' - это ссылка на текущий каталог.
и с именем '..' - это ссылка на родительскую директорию...
кстати, выполните в командной строке команду dir
и увидите там (даты будут, разумеется другими :-))

03.05.2008  08:02    <DIR>          .
03.05.2008  08:02    <DIR>          ..

[toxa-kachok]

Классно Спасибо