Поиск файлов

[---FISHER---]

Кто сможет информативно пояснить выделенные красным строчки кода?

procedure TForm1.Button1Click(Sender: TObject);
begin 
ListBox1.Clear;
FindFile(Edit1.Text);
end;

procedure TForm1.FindFile(Dir:String); 
Var SR:TSearchRec; 
    FindRes:Integer; 
begin 
FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR); 
While FindRes=0 do 
   begin 
      if ((SR.Attr and faDirectory)=faDirectory) and 
      ((SR.Name='.')or(SR.Name='..')) then 
         begin

если не затруднит по косточкам...

((SR.Attr and faDirectory)=faDirectory)

Просто по-моему это бессмыслица...

((найденый файл.Атрибут и "АтрибутДериктория") = АтрибутДериктория)

[psycho-coder]

 if ((SR.Attr and faDirectory)=faDirectory) and 
((SR.Name='.')or(SR.Name='..')) then ...

Если ((атрибуты и флаг директории) = флагу директории) и
((Это текущий каталог) или (Это родительский)) тогда ...

В общем проверка, что это директория

[Stilet]

Просто по-моему это бессмыслица...

Нет не бессмыслица.
faDirectory хранит в себе число с выставленным битом, указывающим на то что это директория, отсюда
if (SR.Attr and faDirectory) даст число. Если это число равно числу в faDirectory то значит что это директория.

P.S. Учи логическую алгебру.
Это тоже самое что написать: (SR.Attr and faDirectory)<>0 просто у каждого свои вкусы.

[---FISHER---]

По-моему абсолютно логичнее было бы написать так:

...если атрибут файла = дериктория, то...

 if (SR.Attr=faDirectory) then

так работаь не будет?
почему?

[Serge_Bliznykov]

если атрибут файла = дериктория, то...

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

[---FISHER---]

что вроде: в свойстве .Attr хранится не только признак дериктории?
и ещё я правильно понял

((SR.Attr and faDirectory)=faDirectory)

если это высказывание будет верно, то найденное не будет дерикторией?

дошло вроде...дурацкий препод у нас по той дисциплине где алгебру логики объясняли...

(SR.Name='.')or(SR.Name='..'))

а какие вообще значения может принимать свойство .Name ?

и вот:

Var SR:TSearchRec; 
    FindRes:Integer; 
begin 
FindRes:=FindFirst(Dir+'*.*',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; 
      if ((SR.Attr and faDirectory)=faDirectory) then
         begin 
            FindFile(Dir+SR.Name+'\');
            FindRes:=FindNext(SR);
            Continue;
         end; 
      ListBox1.Items.Add(SR.Name); 
      FindRes:=FindNext(SR); 
   end; 
FindClose(SR); 
end;

Continue - перевед к началу цикла? т.е. опять к условию While FindRes=0 do ? но если так то

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

никогда не выполнится, ну пока оба условия не будут ложными

[psycho-coder]

Сообщение от ---FISHER---

если это высказывание будет верно, то найденное не будет дерикторией?

Наоборот, будет директорией
Вот Вам по алгебре рас, а вот два

а какие вообще значения может принимать свойство .Name ?

Любые типа String. А вобще в нем хранятся найденные файлы (директории тоже файлы!)

ЗЫ Пользуйтесь "Правкой"

[s.Creator]

Сообщение от ---FISHER---

[CODE]

Var SR:TSearchRec; 
    FindRes:Integer; 
begin 
FindRes:=FindFirst(Dir+'*.*',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; 
      if ((SR.Attr and faDirectory)=faDirectory) then
         begin 
            FindFile(Dir+SR.Name+'\');
            FindRes:=FindNext(SR);
            Continue;
         end; 
      ListBox1.Items.Add(SR.Name); 
      FindRes:=FindNext(SR); 
   end; 
FindClose(SR); 
end;

Я так попонимаю Вы привели код тела функции function FindFile(Dir);
которая рекурсивно (просматривая вложенные папки) находит все файлы и заносит их список в ListBox1.

      if ((SR.Attr and faDirectory)=faDirectory) and 
      ((SR.Name='.')or(SR.Name='..')) then 
         begin 
            FindRes:=FindNext(SR); 
            Continue; 
         end;

пропускаем текущую и родительскую директорию и ищем дальше.

      if ((SR.Attr and faDirectory)=faDirectory) then
         begin 
            FindFile(Dir+SR.Name+'\');
            FindRes:=FindNext(SR);
            Continue;
         end;

Нашли вложенную папку рекурсивно просматриваем ее содержимое (FindFile(Dir+SR.Name+'\');)
Если ни то ни другое - то это файл - записываем его в список

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

и продолжаем поиск.

[---FISHER---]

Может я либо глупоко тупой, либо этот алгоритм поиска файлов не самый простой. Есть ли какой нибудь аналогичный алгоритм, только более простой для понимания. Или может кто нибудь сможет более детально этот алгоритм на словах описать. Я понимаю всё строчки этого кода, но не понимаю как он пошагово работает...

[Serge_Bliznykov]

это самый простой алгоритм поиска файлов.
Единственно, что может вызвать сложность для понимания - это используемая в алгоритме рекурсия..
Просто походите в отладчике пошагово - всё поймёте..

Смотрите. (далее по тексту Директория и Папка - синонимы!)

  Ищем любой файл/папку в папке заданной переменной в Dir
      FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR); 
  если хоть один объект файловой системы нашёлся, то
     проверим - если это директория и её имя точка или двоеточие - то ничего не делаем
      (переходим на поиск следующего элемента файловой системы)
     Если это директория, тогда вызываем этот же алгорим поиска файлов в обнаруженной папке 
       (ЭТО И ЕСТЬ РЕКУРСИЯ - вызов процедуры из самой процедуры) - считайте, что просто вызвали свою процедуру, 
        только не в исходной директории Dir - а в найденной директории
        (имя этой директории будет  Dir + Sr.Name + '\' )...
    Если же это не папка - то это файл. Его имя просто помещаем в список. 
       Полный путь к найденному файлу  = Dir + Sr.Name

цикл повторяем, пока находятся объекты. Как только все объекты закончатся - мы выходим из процедуры.

p.s. кстати, я лично так пишу подобный алгоритм:

procedure FindFile(Dir: string);
var SR: TSearchRec;
  FindRes: Integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    if ((SR.Attr and faDirectory) = faDirectory) then
    begin
      if (SR.Name <> '.') and (SR.Name <> '..') then
        FindFile(Dir + SR.Name + '\');
    end
    else
      ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

p.p.s. Зачем в ListBox кидать кучу имён файлов без полного пути?.. что Вы потом с этой массой делать собираетесь? просто наслаждаться именами?