Каталоги в TreeView

[yulia]

абсолютно... но кроме того он каталоги даже не находит.... просто пустое дерево плучается

[Sm1Le]

и так ... Вопрос номер АдЫн :

if Directory[Length(Directory)] <> '\' then Directory := Directory + '\'; - а в ту ли сторону направлены косые ?! Ответ - НЕд ! =)
Вам надо найти все файлы жПГ во всех под папках ?

[yulia]

Сообщение от Sm1Le

и так ... Вопрос номер АдЫн :

if Directory[Length(Directory)] <> '\' then Directory := Directory + '\'; - а в ту ли сторону направлены косые ?! Ответ - НЕд ! =)

в ту..... оно же работает... ищет все файлы во всех папках

Сообщение от Sm1Le

Вам надо найти все файлы жПГ во всех под папках ?

да

[Sm1Le]

Пробивала изменить направление косой и дописать jpg ?

[mihali4]

Подправил 16-й пост.
Сейчас нет времени проверить, попробуйте сами - заменить faDirectory на faAniFile и к проверке

else if IncludeFiles then
if SearchRec.Name[1] <> '.' then

добавить проверку на расширение JPG.

[yulia]

не получается, ну и ладно.. я тут подумала и поняла, что не то делаю....

Сейчас процедура находит все каталоги и файлы на определенном диске, но если диск достаточно большого объема, то это занимает много времени... вот я ищу способ ускорить процесс... Думала искать только картинки, т.к. они мне только нужны, но тут поняла, что смысла нету - все просматривать все равно придется....

Может кто подскажет как можно ускорить процесс?

[Sm1Le]

да есть способ... он основан на том что б строит дерево в момент открытия ветки. Тоесть самый первый уровень строишь как обычно, а далее строиться только если к этим данным обратишься ....

http://forum.sources.ru/index.php?sh...7&hl=ttreeview

тут можно почитать про то что тебя интересует ....

[yulia]

Не поверите, получилось!!! ))))))))))))

Может кому надо будет...

procedure GetDirectories(Tree: TTreeView; Directory: string;
Item: TTreeNode; IncludeFiles: Boolean);
var
  SearchRec: TSearchRec;
  ItemTemp: TTreeNode;
  i:integer;
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;
        Tree.Items.AddChildObject(Item,'',nil);
        //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.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
var
count:integer;
path:string;
endpath:array [0..2000] of char;
 Function recGetPath(node:TTreeNode):TTreeNode;
   begin
        If node.Parent<>nil then
        begin
          path:=node.Text+'\'+path;
          recGetPath(node.Parent);
        end
      else path:=node.Text+'\'+path;
          end;
 begin
recGetPath(node);
path:=dir+'\'+path;
strPcopy(endpath,path);
count:=strlen(endpath);
StrLCopy(endpath,endpath,count-1);
path:=StrPas(endpath);
IF Node.getFirstChild.Data = nil
Then Begin
Node.DeleteChildren;
GetDirectories(TreeView1, path, Node, true);
End;
end;