Delphi FindFirst, не находит половину файлов.

[Winexcel]

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

ТС, ответьте на несколько вопросов:
1) Такой поиск по всему диску C: должен выполняться уйму времени. Вы точно дожидаетесь окончания поиска?

2) Пробовали ли вы после окончания поиска поискать свои "потерявшиеся" файлы в середине/конце/любом_другом_месте_ списка (в вашей реализации там они и должны оказаться)?

---------

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

procedure TForm1.ScanFolder(Folder: String);
...
var localDirs: array of string;
i: integer;
...
 if (sr.Attr and faDirectory) = faDirectory then
     begin
      тут кладем FileName в массив localDirs
      Continue;
     end;
....
until FindNext(sr) <> 0;
   FindClose(sr);
   if (localDirs.Length>0) then
     for i:=0 to localDirs.Length - 1 do
       ScanFolder(localDirs[i]);
....

Главное чтобы памяти и размера стека хватило ))


P.S. memo1.Lines.SaveToFile(extractfilep ath(paramstr(0))+'log.txt'); вынесите из рекурсивного метода, это же ужасно!

1) Конца поиска не дожидался, форма виснет, и долго собирает все файлы да.
2)Нет

На счёт ванги: в точку, нужна именно порядочность файлов, сделал как вы и сказали, только выбивает

Сам код:

procedure TForm1.ScanFolder(Folder: String);
var
 sr: TSearchRec;
 FileName:String;
 localDirs: array of string;
 i,i2: integer;
begin
i2:=-1;
 if FindFirst(Folder+'\*.*', faAnyFile, sr) = 0 then
  begin
   repeat
    if (sr.Name='.') or (sr.Name='..') then
     continue;

    FileName := SlashSep(Folder, sr.Name);

    // Ýòî äèðåêòîðèÿ?
    if (sr.Attr and faDirectory) = faDirectory then
     begin
     { ScanFolder(FileName); }
      inc(i2);
      setlength(localdirs,i2);
      localdirs[i2]:=FileName;
      Continue;
     end;

    // Íàéäåí ôàéë
      Memo1.Lines.Add(FileName);
   until FindNext(sr) <> 0;
   FindClose(sr);
   if (length(localDirs)>0) then
     for i:=0 to length(localDirs) - 1 do
       ScanFolder(localDirs[i]);
  end;

end;

Подсвечивает делфи вот эту строчку :
ScanFolder(edLookIn.Text);

Использую Delphi 7

[northener]

При первом найденном каталоге i2 равен 0. И что же тогда выделяет setlength(localdirs,i2);
?

[evg_m]

хочешь узнать правильный ответ (правильную ошибку) сделай так

i2:=-1;
inc(i2);
SetLength(localdir,i2); ??? какой длины будет массив
Localdir[i2]:=....; ?? в какой из имеющихся будет запись

[Winexcel]

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

При первом найденном каталоге i2 равен 0. И что же тогда выделяет setlength(localdirs,i2);
?

Изменил на

i2:=0;

Результат аналогичный.

[Luuzuk]

setlength(localdirs,i2);

Правильно будет так:

setlength(localdirs,i2+1);

i2 - это длина массива. Она на единицу больше индекса последнего эемента

i2:=0;

Ужас. Теперь мы будем обращаться к несозданным элементам ))

1) Конца поиска не дожидался, форма виснет, и долго собирает все файлы да.
2)Нет

Второе есть следствие первого

[Winexcel]

Вот так заработало:

procedure TForm1.ScanFolder(Folder: String);
var
 sr: TSearchRec;
 FileName:String;
 localDirs: array of string;
 i,i2: integer;
begin
i2:=-1;
 if FindFirst(Folder+'\*.*', faAnyFile, sr) = 0 then
  begin
   repeat
    if (sr.Name='.') or (sr.Name='..') then
     continue;

    FileName := SlashSep(Folder, sr.Name);

    // Ýòî äèðåêòîðèÿ?
    if (sr.Attr and faDirectory) = faDirectory then
     begin
     { ScanFolder(FileName); }
      inc(i2);
      setlength(localdirs,i2+1);
      localdirs[i2]:=FileName;
      Continue;
     end;

    // Íàéäåí ôàéë
      Memo1.Lines.Add(FileName);
   until FindNext(sr) <> 0;
   FindClose(sr);
   if (length(localDirs)>0) then
     for i:=0 to length(localDirs) - 1 do
       ScanFolder(localDirs[i]);
  end;

end;

После танцов с бубном =).
Luuzuk - Идея твоя мне тоже пришла сразу в голову реализовать запись каталогов в лист, затем уже запускать от туда. Но всё равно спасибо.
И всё же ваше рассуждение Luuzuk:

1) Такой поиск по всему диску C: должен выполняться уйму времени. Вы точно дожидаетесь окончания поиска?

Не совсем логично, так как процедура в это же время ищет данные файлы, а у меня в мемо было совсем другое, я думаю спустя 5-6 сек она бы закончила работу и файлы оказались бы хоть не так далеко от списка начальных при запуске, а их вообще не было...
Ах да ещё добавлю, что порядочность будет опять же при первом шаге, после рекурсии порядочности не будет...ведь тут может быть не один а сразу несколько каталогов, решение это ещё и добавление секции...

[Luuzuk]

Не совсем логично, так как процедура в это же время ищет данные файлы, а у меня в мемо было совсем другое, я думаю спустя 5-6 сек она бы закончила работу и файлы оказались бы хоть не так далеко от списка начальных при запуске, а их вообще не было...

Вы в корне не правы. Полное перечисление файлов на всем винте займет у вас минут ...надцать, о секундах речь не идет. И список оставшихся файлов из корня диска будет именно ближе к концу. Хотя все зависит от того, в каком порядке FindNext будет их находить

[evg_m]

так как процедура в это же время ищет данные файлы,

Какая процедура их (я так понимаю файлы в корневом каталоге) ищет? Та которую мы запустили первой?
Так вот она инициировала РЕКУРСИВНЫЙ (НО НЕ ПАРАЛЛЕЛЬНЫЙ) запуск самой себя и ждет!
А в мемо идут подкаталоги со все большей глубиной. рекурсия же!

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