Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Список файлов в папке   Найти похожие ветки 

← →
WestBronx   (2006-02-26 22:29) [0]

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

---

← →
Dmitrij_K   (2006-02-26 22:56) [1]

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

---

← →
WestBronx   (2006-02-27 09:03) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.03.12;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.033 c