| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список файлов в папке

WestBronx ©   (2006-02-26 22:29:00) 

Привет. Подскажите, как в TStrings, занести имена файлов, в N'ой папке?
Спасибо.

---

WestBronx   (2006-02-27 09:03:00) [1]

Спасибо.
Хм, за урл тоже thx, вечером обязательно скачаю.

---

Dmitrij_K   (2006-02-26 22:56:00) [2]

Var SearchRec:TSearchRec;
...
If FindFirst('c:\Windows\*.*', faAnyFile, SearchRec)=0 then
repeat
 if (SearchRec and faDirectory)=0 then
   TStrings.Add(SearchRec.Name)
until FindNext(SearchRec) <> 0;    
FindClose(SearchRec);

www.drkb.ru MuST HaVe

---

Наверх