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



Вопросы
  Wav файл внутри exe-файла
   Категория: Файловая система
  Упаковка таблиц в BDE
   Категория: Базы данных
  К-во рабочих дней в месяце
   Категория: Математика
  Cколько файлов есть в определённой папке
   Категория: Файловая система
  Создать *.mdb-файл и таблицу в ней
   Категория: Базы данных
  Узнать запущен ли сервис FireBird
   Категория: Интернет и Сети
  Как в Memo прокрутить текст
   Категория: Компоненты
  Как подключить или отключить сетевой диск
   Категория: Интернет и Сети
  Шифрование текста по паролю
   Категория: Текст и строки

bannerday.ru конструкция рекламного баннерного щита,Купить редуктор газовый. Где купить редуктор для газового баллона.
Delphi - База Знаний: Прочитать содержимое папки

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

procedure LookDir(StartDir, Mask : String; List : TStringList);
var
SearchRec : TSearchRec;
begin
if Mask = '' then Mask := '*.*';
if StartDir[Length(StartDir)] <> '' then StartDir := StartDir + '';
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory) <> faDirectory then
begin
List.Add(StartDir+SearchRec.Name);
end
else
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then LookDir(StartDir + SearchRec.Name + '', Mask, List);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;


Используется так:

var
lst : TStringList;
begin
lst := TStringList.Create;
LookDir('C:Мои документы', '*.*', lst);
lst.SaveToFile('C:List.txt');
lst.Free;
end;
  << Вернуться к Содержанию