Уроки по Delphi



         

Урок22. Программный поиск файлов - часть 7


         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;

Если вы в компоненте Edit1 в качестве начального условия поиска файлов зададите корневую папку диска, например "С:\", то вы получите полный перечень всех файлов на данном диске. Обратите внимание на скорость поиска файлов и скорость работы вашей программы.

С уважением, ведущий уроков Semen semen@krovatka.net




Содержание  Назад  Вперед