|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#7
31.03.2011, 12:56
|
||||
|
||||
DJ PhoeniX Спасибо, получилось.
Только добавил '\' Код:
inc(Result,FileCount(Dir+ '\'+fs.name)); и объявление Код:
function FileCount(Dir: string): integer; forward; ненужно (Это я как понимаю для Delphi ниже 8)  |
Древовидный вид