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

Советы » Каталоги » Показываем директории в 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: emp'; Screen.Cursor := crHourGlass; TreeView1.Items.BeginUpdate; try

TreeView1.Items.Clear; GetDirectories(TreeView1, Dir, nil

, True

); finally

Screen.Cursor := crDefault; TreeView1.Items.EndUpdate; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com