Вниз
Скачать: CL | DM;

поиск файлов, создание дерева каталогов   Найти похожие ветки 

← →
agent   (2005-10-28 18:17) [0]

использую 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 =(


← →
clickmaker ©   (2005-10-28 18:22) [1]

из хелпа:

The Attr parameter specifies the special files to include in addition to all normal files

Руками проверяй атрибуты
(rec.Attr and faDirectory) <> 0


← →
agent   (2005-10-28 19:12) [2]

спасибо =)



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c
5-1111739032
Надежда
2005-03-25 11:23
2005.11.20
Создаю объекты своего класса, и не могу Parent присвоить


5-1111654897
lvi
2005-03-24 12:01
2005.11.20
property FieldName как по умолчанию DataField


2-1130517017
Alex-X
2005-10-28 20:30
2005.11.20
timer,gauge


9-1120203177
Зм1й
2005-07-01 11:32
2005.11.20
Сглаживание


2-1131029615
DelphiLexx
2005-11-03 17:53
2005.11.20
class function




   Наверх