Разное



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



Вопросы
  Упаковать TinyDB
   Категория: Базы данных
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
  BDE. Динамическое создание псевдонима
   Категория: Базы данных
  Удалить лишние символы из строки
   Категория: Текст и строки
  Перегенерировать все индексы Dbase
   Категория: Базы данных
  BDE. Расположение БД по псевдониму
   Категория: Базы данных
  BDE. Создание алиасов
   Категория: Базы данных
  Определить МАС-адрес карты
   Категория: Интернет и Сети

Delphi - База Знаний: Получить имена всех папок и файлов в директории

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

var sr: TSearchRec;
begin
 Memo1.Clear;
 if FindFirst('C:\*.*', faAnyFile, sr) = 0 then
  begin
  repeat
  Memo1.Lines.Add(sr.Name);
  until FindNext(sr) <> 0;
  FindClose(sr);
 end;
end;
  << Вернуться к Содержанию