Поиск файлов

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

нет нельзя...
вам уже говорили что обозначают точки, они не нужны вам...и они замкнут рекурсию

[---FISHER---]

До меня дошло всё, кроме вот этой мелочи:

что будет значить эта строчка, если значение SR.Name=123.exe

FindRes:=FindNext(SR);

Будет искаться следующий файл с этим именем (123.exe [глупость]), или просто тот же файл что ищется в начале поиска(в FindFirst), а в FindNext, параметр SR в скобках тока для порядка? Ну вернее чтобы определять каталог это или файл в ((SR.Name='.')or(SR.Name='..'))

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

это строчка означает "искать далее"
а SR это запись в которой будет хранится данные о файле найденном

[---FISHER---]

Я уловил все закоулки этого алгоритма только вот что до меня доходило дольше всего:



Меня слово "Метка" ввело в заблуждение

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

помоему точки в начале самой идет, а так, молодец

а файлов нет?

[Serge_Bliznykov]

---FISHER---, ну слава Богу! Поздравляю!

p.s. по указанной у Вас схеме не очень наглядно видно..
Просто хочу отметить. служебные папки с именами "." ".."
1) присутствуют в КАЖДОЙ ПАПКЕ (за исключением КОРНЕВОЙ (корневая папка - это имя диска со слешем, например:
C:\ или D:\)
2) служебные папки с именами "." ".." в каждой папке встречаются СТРОГО ОДИН РАЗ.

для иллюстрации рекомендую погонять такой исходник (киньте на форму Memo, Edit и кнопку. На кнопку назначьте код Button1Click) :

procedure TForm1.FindFile(Dir: string);
var SR: TSearchRec;
  FindRes: Integer;
begin
  FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
  while FindRes = 0 do
  begin
    Memo1.Lines.Add(Dir + SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('------------- '+Trim(edit1.Text)+'----------');
  FindFile(Trim(edit1.Text));
end;

[---FISHER---]

Вот короче, в этом коде АБСОЛЮТНО ничего нового, но зато он полностью мне понятен и немножко видоизменен мной

Теперь такой вопрос встал: каким образом заставить программу что-либо, во время этого самого перебора файлов, делать? А то она полностью останавливается и как будто весит (все результаты показывает исключительно после окончания перебора). Подскажите пожалуйста

А вот код, не судите за возможно кривое написание если есть черьезные неточности или ошибки, сообщите пожалуйста а так она полностью рабочая, правда ищет пока только файлы

procedure TForm1.FindFile(Text:String; Atr:integer; search:string);
Var SR:TSearchRec; 
    FindRes:Integer; 
begin 
FindRes:=FindFirst(Text+'*.*', atr ,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
            Edit2.Text:=SR.Name;
            FindFile(Text+SR.Name+'\', atr, search);
            FindRes:=FindNext(SR); 
            Continue; 
         end;
      Edit2.Text:=SR.Name;
      If SR.Name = search then ListBox1.Items.Add(Text + SR.Name);
      FindRes:=FindNext(SR);
   end;
FindClose(SR);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Text: string;
search: string;
i:integer;
atr: integer;
begin
If CheckBox1.Enabled= true then atr:= atr + $00000002 + $00000004;
If CheckBox2.Enabled= true then atr:= faAnyFile;
search:=Edit1.Text;
Text:= Combobox1.Text;
If Text='Локальный диск (C:\)' then Text:= 'C:\';
If Text='Локальный диск (D:\)' then Text:= 'D:\';
If Text='Мои документы' then Text:= 'C:\Documents and Settings\123\Мои документы\';
If Text='Мои рисунки' then Text:='C:\Documents and Settings\123\Мои документы\Мои рисунки\';
Timer1.Enabled:=True;
FindFile(Text, atr, search);
Timer1.Enabled:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If ProgressBar1.Position <> 100 then
begin
ProgressBar1.Position:=ProgressBar1.Position + 1;
end else
begin
ProgressBar1.Position:=0;
end;
end;//таймер вообще не подает признаков жизни во время перебора

end.

[psycho-coder]

А таймер у Вас включен?

[Alex Cones]

Он и не будет "живым" по причине того, что ты в той же процедуре отключаешь его, ведь во время поиска дельфи не переключится на исполнение таймера (проверь с помощью F7, если не веришь), для этого нужен другой поток

[---FISHER---]

Вот вот поток...подскажите на примере как это реализовать