Что такое faDirectory

[zotox]

Есть код

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec;
    FindRes:Integer;
begin
ListBox1.Clear;

FindRes:=FindFirst('c:\delphi\*.*',faAnyFile,SR);
While FindRes=0 do
   begin
      if ((SR.Attr and faDirectory)=faDirectory) and 
      ((SR.Name='.')or(SR.Name='..')) then 
         begin
            FindRes:=FindNext(SR); // продолжить поиск
            Continue; // продолжить цикл
         end;

      ListBox1.Items.Add(SR.Name);
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end; 


Ну так вот мне не понятно что такое faDirectory
Совсем не понятно ;( объясните пожалуйста (я понял токо что связанно что то с директорией)

Заранее спасибо

[qpokyc]

SysUtils.pas:

{ File attribute constants }

  faReadOnly  = $00000001 platform;
  faHidden    = $00000002 platform;
  faSysFile   = $00000004 platform;
  faVolumeID  = $00000008 platform;
  faDirectory = $00000010;
  faArchive   = $00000020 platform;
  faSymLink   = $00000040 platform;
  faAnyFile   = $0000003F;

Delphi Help:

The Attr parameter specifies the special files to include in 
addition to all normal files. 
Choose from these file attribute constants when specifying the Attr parameter:

Constant	Description
faReadOnly	Read-only files
faHidden	Hidden files
faSysFile	System files
faVolumeID	Volume ID files
faDirectory	Directory files
faArchive	Archive files
faAnyFile	Any file

Это тип файлов, т.е. его атрибуты (faDirectory - это папка)
PS: Время-деньги: Нажать на "Help" в Delphi намного просче, чем лезть на форум

[uberchel]

faDirectory- Папка(и), С любым аттрибутом


if ((SR.Attr and faDirectory)=faDirectory) and // Поиск папок и падпапок с любыми аттрибутоми!

[zotox]

Хорошо я понял что такое faDirectory а что же такое SR.Attr
Написано рядом

Attr - атрибуты каталога (файла);

Это как это понимать?
То есть это типа если атрибут равен папке то знач это папка? Верно?
Или как?

[uberchel]

Нет! Аттрибут это ест, допустим:
Скрытый,системный, только чтение,архивный и т.д.
А SR - SearchRec; это информация о файле, т.е функция каторая содержит информацию о открываемым(ми) файла(и)!

procedure TForm1.Button1Click(Sender: TObject);
Var SR:TSearchRec;
    FindRes:Integer;
begin
ListBox1.Clear;
FindRes:=FindFirst('c:\delphi\*.*',faAnyFile,SR); //поиск
While FindRes=0 do
   begin
      if ((SR.Attr and faDirectory)=faDirectory) and 
      ((SR.Name='.')or(SR.Name='..')) then  // все папки и файлы
         begin
            FindRes:=FindNext(SR); // продолжить поиск
            Continue; // продолжить цикл
         end;

      ListBox1.Items.Add(SR.Name); //дабавить в ListBox
      FindRes:=FindNext(SR); // продолжить поиск
   end;
FindClose(SR); //закрвть(остановить)поиск
end;

P.S Почитай литиратуру по Делфи

Помог? если да, то нажми на весы с лева =)

[Anatole]

То, что мы называем катологом (директорией,папкой) на самом деле является типизированым файлом с записями определённой структуры. Одним оз полей этой записи является байт атрибутов, каждый бит которого имеет определённое значение. Значения битов в этом байте тебе уже привели выше (запиши приведенные выше значения в двоичной системе). Например если в этом байте самый младший бит установлен (имеет значение 1), то файл к которому относится эта запись доступен только для чтения. Операционная система при выполнений операций с файлами анализирует значения этого байта.

то есть это типа если атрибут равен папке то знач это папка? Верно?

если быть точным, то катологом (директорией,папкой) будет то, в байте атрибутов которого 5-й бит имеет значение 1