Уроки по Delphi


         

после осмотра вложенного каталога мы


         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

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





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий