Корректный сёрчинг файлов и папок

[Altera]

Привет всем!
Вот у меня такое дело, короче надо получить все файлы из папки.
Использую findFirst, посмотрел список атрибутов:

faReadOnly = $00000001 platform;
faHidden = $00000002 platform;
faSysFile = $00000004 platform;
faVolumeID = $00000008 platform deprecated; // not used in Win32
faDirectory = $00000010;
faArchive = $00000020 platform;
faSymLink = $00000040 platform;
faNormal = $00000080 platform;
faTemporary = $00000100 platform;
faAnyFile = $000001FF;

Написал так:

function getFilesFromDir(const dir: string; const list: tStringList): boolean;
var
sr: tSearchRec;
begin
   if findFirst(dir+'\*.*', faAnyFile, sr) = 0 then
   repeat
      if (sr.Name = '.') or (sr.Name = '..') or (sr.Attr = faDirectory) then continue;

      list.Add(format('%x', [sr.Attr])+ ' - '+dir+'\'+sr.Name);
   until findNext(sr) <> 0;
   findClose(sr);
end;

Проблема в том, что он не всегда всё делает правильно. Т.е. он цапает такую папку, как C:\windows\fonts

Столько атрибутов там, какой для чего, чёрт его знает
Если искать файлы, с конкретным расширением, то всё ОК, а так нет. Как мне из sr.attr точно узнать, это папка, или файл, и какая она или он, крытый, системный обычный

[Пепел Феникса]

C:\windows\fonts, если присмотрется то это не совсем папка то...
видимо особые папки он цепляет

[Greblin]

У вас ошибочка вот здесь

(sr.Attr = faDirectory)

Папка, например, может быть скрытой (faHidden), поэтому у неё значение st.Attr будет равно не faDurectory, а (faDirectory or faHidden)=$00000012. Проверять надо так

if (sr.Name = '.') or (sr.Name = '..') or ((SR.Attr and faDirectory)<>0) then ...

[Altera]

Тогда можно и так написать:

if (sr.Attr and faDirectory) = faDirectory then continue;

Но всёравно, Респект +

[Harikolo]

Здравствуйте.
Решил написать сюда...
Есть код:

Begin
                                  ListBox1.Clear;
                                  FindRes := FindFirst('D:\*.txt', faHidden, SR);
                                  while FindRes = 0 do
                                  begin
                                    ListBox1.Items.Add(SR.Name);
                                    FindRes := FindNext(SR);
                                  end;
                                  FindClose(SR);
                               end;

На мой взгляд этот код должен искать все скрытые txt файлы в диске D, но этого не происходит в ListBox выводятся все txt файлы.

[Пепел Феникса]

Begin
                                  ListBox1.Clear;
                                  FindRes := FindFirst('D:\*.txt', faHidden, SR);
                                  while FindRes = 0 do
                                  begin
                                    if (sr.Attr and faHidden) = faHidden ListBox1.Items.Add(SR.Name);
                                    FindRes := FindNext(SR);
                                  end;
                                  FindClose(SR);
                               end;

всего лишь то.

[GunSmoker]

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

На мой взгляд этот код должен искать все скрытые txt файлы в диске D, но этого не происходит в ListBox выводятся все txt файлы.

Меня всегда интересует, откуда вы берёте все эти оригинальные трактовки функций.

Нажимаем F1 и видим, что чёрному по белому написано:

The Attr parameter specifies the special files to include in addition to all normal files.

[ArtGrek]

C:\windows\fonts, если присмотрется то это не совсем папка то...

faReadOnly : 1 : Файл только для чтения
faHidden : 2 : Скрытый файл
faSysFile : 4 : Системный файл
faVolumeID : 8 : Файл идентификатора объёма
faDirectory : 16 : Файл директории
faArchive : 32 : Архивный файл
faSymLink : 64 : Ярлык

может поздно но попробуи проверить faSysFile : 4 : Системный файл

и вообше поюзаи все параметры, пока не наидеш тот что перекроет условие попадание