Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Показываем директории в TTreeView


 procedure TForm1.GetDirectories(Tree: TTreeView; Directory: string;
 Item: TTreeNode; IncludeFiles: Boolean);
 var
   SearchRec: TSearchRec;
   ItemTemp: TTreeNode;
 begin
   Tree.Items.BeginUpdate;
   if Directory[Length(Directory)] <> '\' then Directory := Directory + '\';
   if FindFirst(Directory + '*.*', faDirectory, SearchRec) = 0 then
   begin
     repeat
       if (SearchRec.Attr and faDirectory = faDirectory) and
       (SearchRec.Name[1] <> '.') then
       begin
         if (SearchRec.Attr and faDirectory > 0) then
           Item := Tree.Items.AddChild(Item, SearchRec.Name);
         ItemTemp := Item.Parent;
         GetDirectories(Tree, Directory + SearchRec.Name, Item, IncludeFiles);
         Item := ItemTemp;
       end
       else if IncludeFiles then
         if SearchRec.Name[1] <> '.' then
           Tree.Items.AddChild(Item, SearchRec.Name);
     until FindNext(SearchRec) <> 0;
     FindClose(SearchRec);
   end;
   Tree.Items.EndUpdate;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   Node: TTreeNode;
   Path: string;
   Dir: string;
 begin
   Dir := 'c:\temp';
   Screen.Cursor := crHourGlass;
   TreeView1.Items.BeginUpdate;
   try
     TreeView1.Items.Clear;
     GetDirectories(TreeView1, Dir, nil, True);
   finally
     Screen.Cursor := crDefault;
     TreeView1.Items.EndUpdate;
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS