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



Вопросы
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Вставить иконки в Grid
   Категория: Компоненты
  Получить список запущенных приложений
   Категория: Приложение
  Замена подстроки в строке
   Категория: Текст и строки
  Вычислить логарифм
   Категория: Математика
  Определить МАС-адрес карты
   Категория: Интернет и Сети
  Установить в программу свои шрифты
   Категория: Приложение
  Как поместить графический элемент в ListBox
   Категория: Компоненты
  Упаковать *.mdb-файл
   Категория: Базы данных

На inter-devochka.co проститутки Красное село. | Проститутки Черная речка подробности здесь. | В екатеринбурге путаны.
Delphi - База Знаний: Как произвести поиск файлов во вложенных папках

  << Вернуться к Содержанию  

procedure findfile(s:string); //каталог, откуда начать поиск
var SearchRec:TSearchRec;
res:integer; //результат поиска (0 или нет)
begin
res:=FindFirst(s+'*.*',faAnyFile,SearchRec);
res:=findNext(SearchRec);
While res=0 do
begin
if (SearchRec.Attr=faDirectory) and ((SearchRec.Name='.')or(SearchRec.Name='..')) then
begin
Res:=FindNext(SearchRec);
Continue;
end;
if (SearchRec.Attr=faDirectory) then//если нашли директорию, то ищем файлы в ней
begin
findfile(s+SearchRec.Name+'\');//поиск во вложенной папке
Res:=FindNext(SearchRec);
Continue;
end;
form1.ListBox1.Items.Add(Sea.Name);//добавляем в Listbox:Tlistbox имя файла
Res:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
  << Вернуться к Содержанию