Показать сообщение отдельно
  #19  
Старый 18.05.2011, 14:38
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

свойства:
property FindList: TStringList - результирующий список
property Mask: String - маска (*.* *.txt и т.д.)
property Directory: String - путь (c:\WINDOWS)
property Attr: Integer - аттрибуты (faAnyFile, faReadOnly or faHidden or faDirectory и т.д.)
property IncludeParentPath: Boolean - включать родительский путь (Японский мотив.bmp или c:\WINDOWS\Японский мотив.bmp)
метод:
Execute
сохранять в файл:
Код:
type
  TForm1 = class(TForm)
    Finder1: TFinder;

    Finder1.FindList.SaveToFile('c:\Downloads\Новая папка.txt');
после Execute в результирующем списке идут отсортированые директории, затем отсортированые файлы. имена директорий заканчиваются \
__________________
Пишу программы за еду.
__________________
Ответить с цитированием