Каталоги в TreeView

[Airou]

Вот нашел на форуме вывод всех файлов и папок начиная с заданной директории.

//процедура сканирования
procedure Tfmain.ScanDir(StartDir: string; Mask:string);
var SearchRec : TSearchRec;
    oldnod: TTreeNode;
begin
if Mask='' then Mask:='*.*';
if StartDir[Length(StartDir)]<>'\' then
StartDir:=StartDir+'\';
if <span class="highlight">FindFirst</span>(StartDir+Mask, faAnyFile, SearchRec)=0 then
repeat
Application.ProcessMessages;
if (SearchRec.Attr and faDirectory)<>faDirectory then
mnod:=TreeView1.Items.AddChild(nnod,SearchRec.Name) else
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
oldnod:=nnod;
nnod:=TreeView1.Items.AddChild(nnod,SearchRec.Name+'\');
ScanDir(StartDir + SearchRec.Name + '\',Mask);
nnod:=oldnod;
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;

//вызов процедуры
procedure Tfmain.mFileNewClick(Sender: TObject);
var StartDir: string;
begin
//тут любым способом задаем начальный каталог
StartDir:='G:';
TreeView1.Items.BeginUpdate;
TreeView1.SortType:=stNone;
TreeView1.Items.Clear;
nnod:=TreeView1.Items.AddFirst(nil,StartDir);
ScanDir(StartDir,'');
TreeView1.SortType:=stText;
TreeView1.Items.EndUpdate;
Application.ProcessMessages;
end;

Но возникла пара вопросов:
1. Как при двойном клике на Item проверить файл ли это (тут в принципе FileExist помог бы если бы я знал полный путь к файлу)
2 Как получить полный путь к нему.

Помогите плз.

[JTG]

Ня

procedure TForm1.TreeView1DblClick(Sender: TObject);

var path:string;

   Function recGetPath(node:TTreeNode):TTreeNode;
   begin
      If node.Text<>startdir then
        begin
          path:=node.Text+path;
          recGetPath(node.Parent);
        end
      else path:=node.Text+'\'+path;
   end;

   Function isDirectory(s:string):boolean;
   begin
     result := GetFileAttributes(pchar(path)) and faDirectory = faDirectory;
   end;

begin
  recGetPath(TreeView1.Selected);
  Label2.Caption:=path;
  If isDirectory(path) then Label2.Caption:=Label2.Caption+ ' - это папка'
  else Label2.Caption:=Label2.Caption+ ' - это файл'
end;

Тока сделай у себя переменную StartDir глобальной, и надо ещё прикрутить проверку, выделен ли какой-то узел в дереве, а то тут рекурсия - того и гляди уйдёт в вечный цикл )))

[Airou]

Спс большое

И еще пытался переделать первый код под отображение doc файлов но чет не получается... поправте плз

....
if (SearchRec.Attr and faDirectory)<>faDirectory then
begin
if Copy(SearchRec.Name,Length(SearchRe c.Name)-4,4)='.doc' then
mnod:=TreeView1.Items.AddChild(nnod ,SearchRec.Name) end else;
if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
begin
oldnod:=nnod;
nnod:=TreeView1.Items.AddChild(nnod ,SearchRec.Name+'\');
ScanDir(StartDir + SearchRec.Name + '\',Mask);
nnod:=oldnod;
end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;

ЗЫ Function isDirectory(s:string)

ЗЗЫ Где-то обнуляеться path вроде тут если правильно отследил... возможно из-за того что имя папки на русском языке написано... ибо глянул инспектором path становится=''?

Function TForm7.isDirectory(path:string):boolean;
begin
  result := GetFileAttributes(pchar(path)) and faDirectory = faDirectory;
end;

[Airou]

Вроде решил проблему. С переменными путаница была.

[Airou]

Что тоя на днях открыл исходник программы и пытался разобрать работу ScanDir(StartDir: string; Mask:string)
mnod - файловая ветка
nnod - ветка для папки
одвтщву - ?? что это
... но чтото никак не могу понять что тут делаеццо

if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then  
 begin  
 oldnod:=nnod;  
 nnod:=TreeView1.Items.AddChild(nnod,SearchRec.Name+'\');  
 ScanDir(StartDir + SearchRec.Name + '\',Mask);  
 nnod:=oldnod;  
 end;

Прокоментите плз что это за присвоения туда-сюда?

А все разобрался.

[yulia]

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

Ня

procedure TForm1.TreeView1DblClick(Sender: TObject);

var path:string;

   Function recGetPath(node:TTreeNode):TTreeNode;
   begin
      If node.Text<>startdir then
        begin
          path:=node.Text+path;
          recGetPath(node.Parent);
        end
      else path:=node.Text+'\'+path;
   end;

   Function isDirectory(s:string):boolean;
   begin
     result := GetFileAttributes(pchar(path)) and faDirectory = faDirectory;
   end;

begin
  recGetPath(TreeView1.Selected);
  Label2.Caption:=path;
  If isDirectory(path) then Label2.Caption:=Label2.Caption+ ' - это папка'
  else Label2.Caption:=Label2.Caption+ ' - это файл'
end;

Тока сделай у себя переменную StartDir глобальной, и надо ещё прикрутить проверку, выделен ли какой-то узел в дереве, а то тут рекурсия - того и гляди уйдёт в вечный цикл )))

Почему оно в этом месте может вылетать с ошибкой Access violation with adresss.... ? Кликаю на файле, который расположен в каталоге StartDir

[yulia]

Airou, как я понимаю ты делал, чтобы оно отображало только доки.... Если есть возможность, можешь кинуть код, плиз...

[mihali4]

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

Почему оно в этом месте может вылетать с ошибкой Access violation with adresss.... ? Кликаю на файле, который расположен в каталоге StartDir

Только потому, что TreeView1.Selected есть NIL.

Кстати, вам поможет отличный пример у вас под ногами:
Borland\Delphi7\Demos\Virtual Listview

Методика есть, осталось переделать чуток по дерево.

[yulia]

почему nil? При отслеживании в этой строке обе сраниваемые переменные имеют значение....

[mihali4]

А-а-а, так у вас функция recGetPath сама себя рекурсивно вызывает...
И что будет, если node.Parent=nil ? То есть нода находится в корне...
Вот вам и Access violation.