[MoS]

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

Код:

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
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то
begin
FindFile(Dir+SR.Name+''); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
Continue; // продолжить цикл
end;
FindRes:=FindNext(SR);
ListBox1.Items.Add(SR.Name);
end;
FindClose(SR);
end;

Почему-то результат поиска не предсказуем, все файлы которые находятся в папке Dir находит, а вот в подпапки папки Dir поиск не ведется, в чем может быть причина?
Работаю в Delphi 7!

[Bargest]

Код:

FindFirst(Dir+'*.*',faAnyFile,SR); 

А папки-то у тебя под эту маску попадают?

[MoS]

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

Код:

FindFirst(Dir+'*.*',faAnyFile,SR); 

А папки-то у тебя под эту маску попадают?

Папка = Dir.
допустим Dir:='d:\'; -> следовательно нужно найти все файлы на диске D

[M.A.D.M.A.N.]

Можно через рекурсию.

[Bargest]

У тебя маска: *.*, то есть <куча букв><точка><куча букв>. К папкам она тоже относится.
И, кстати:

Код:

FindFile(Dir+SR.Name+''); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли

Было бы неплохо на конце слеш поставить.

[MoS]

Сообщение от M.A.D.M.A.N.

Можно через рекурсию.

А это как, можно пример, если не сложно!

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

У тебя маска: *.*, то есть <куча букв><точка><куча букв>

Так это маска для того чтобы искало все файлы, а не только с каким-либо расширением! Или может это не правильная маска?

[Bargest]

Повторяю в третий раз. Маска выглядит как <куча букв><точка><куча букв>. Функция ничего о расширениях не знает. Она просто ищет файл по такой маске, то есть в названии которого есть точка. Если точки нет, то файл (или папка) под маску не подходит и отбрасывается.
Если нужно перебирать все файлы и папки, то маска должна быть просто *

[Bargest]

Сообщение от M.A.D.M.A.N.

Можно через рекурсию.

Мэд, оно и так через рекурсию.

[poli-smen]

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

Почему-то результат поиска не предсказуем, все файлы которые находятся в папке Dir находит, а вот в подпапки папки Dir поиск не ведется, в чем может быть причина?
Работаю в Delphi 7!

Есть в Delphi такая замечательная штука как отладчик. Если бы ты им пользовался, то быстро нашёл ошибку.
Ошибка у тебя здесь:

Код:

FindFile(Dir+SR.Name+''); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли

[M.A.D.M.A.N.]

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

Мэд, оно и так через рекурсию.

Сорри, толком не читал каракульки ТС, уж больно нечитабельно.

MoS, рекурсия коварна! Может стек переполниться. (это так, к сведению)

[MoS]

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

Повторяю в третий раз. Маска выглядит как <куча букв><точка><куча букв>. Функция ничего о расширениях не знает. Она просто ищет файл по такой маске, то есть в названии которого есть точка. Если точки нет, то файл (или папка) под маску не подходит и отбрасывается.
Если нужно перебирать все файлы и папки, то маска должна быть просто *

Дело вовсе не в маске, файлы и так ищет! Проблема в том, что не ищет файлы в подпапках папки, хотя условие для этого поиска написано!

Сообщение от poli-smen

Есть в Delphi такая замечательная штука как отладчик. Если бы ты им пользовался, то быстро нашёл ошибку.
Ошибка у тебя здесь:

Код:

FindFile(Dir+SR.Name+''); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли

Ну тогда если не трудно, напиши как правильно быть должно!

[M.A.D.M.A.N.]

Раз никак не дойдет что тебе толкуют, вот тебе солюшен

Код:

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
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то
begin
FindFile(Dir+SR.Name+'\*.*'); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
Continue; // продолжить цикл
end;
FindRes:=FindNext(SR);
ListBox1.Items.Add(SR.Name);
end;
FindClose(SR);
end;

[poli-smen]

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

Ну тогда если не трудно, напиши как правильно быть должно!

Всё же отладчиком не хочешь пользоваться?
Там у тебя добавляется пустая строка, а должен добавляться символ '\'.

[Bargest]

Только не '\*.*', а просто '\', а то его функция добавит еще одну *.*, и получится \*.**.* Я кстати уже писал, ток ТС заигнорил.

Дело вовсе не в маске, файлы и так ищет!

Ясен красен, в имени 99% файлов есть точка, потому что у них есть расширение. Может, конечно, и есть какой-то костыль в винде на счет маски *.* (и кто ее вообще придумал?), но сомневаюсь.

[MoS]

Сообщение от M.A.D.M.A.N.

Раз никак не дойдет что тебе толкуют, вот тебе солюшен

Код:

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
FindRes:=FindNext(SR);
Continue;
end;
if ((SR.Attr and faDirectory)=faDirectory) then // если найден каталог, то
begin
FindFile(Dir+SR.Name+'\*.*'); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
FindRes:=FindNext(SR); // после осмотра вложенного каталога мы продолжаем поиск в этом каталоге
Continue; // продолжить цикл
end;
FindRes:=FindNext(SR);
ListBox1.Items.Add(SR.Name);
end;
FindClose(SR);
end;

Спасибо, правда почему-то теперь одну папку занесло в листбокс!

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

Я кстати уже писал, ток ТС заигнорил.

Да, точно, не увидел в низу!