Уроки по 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

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