| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
поиск файлов, создание дерева каталогов [D7, WinXP]
agent © (2005-10-28 18:17:00)использую findfirst и findnext для создания дерева каталогов, и поска фалов. но что-то у меня не вяжется :)
findfirst(t, faDirectory, rec);
if (rec.Name <> '.')and(rec.Name <> '..') then
TreeView1.Items.AddChild(TreeView1.Selected, rec.Name);
while findnext( rec ) = 0 do
if (rec.Name <> '.')and(rec.Name <> '..') then
TreeView1.Items.AddChild(TreeView1.Selected, rec.Name);
этот код должен выводить только каталоги. но он похоже этого не знает :) и выводит все подряд, кроме системных файлов..
пробовал проверить атрибуты файлов, для всех файлов и папок он вывел 32, то есть $20, а атрибут папки должен быть $10 =(
agent (2005-10-28 19:12:00) [1]спасибо =)
clickmaker (2005-10-28 18:22:00) [2]из хелпа:
The Attr parameter specifies the special files to include in additionto all normal files
Руками проверяй атрибуты
(rec.Attr and faDirectory) <> 0
| |
