treeview, содержимое папки Опции

[Client]

Привет
Надо сделать дерево для директории.
основываясь на коде для поиска файлов с выводом в memo, вот что получилось

procedure FindFiles(const Path, Mask: String; node: TTreeNode);
var
  SRec: TSearchRec;
  Dir: string;
begin
  Dir := IncludeTrailingPathDelimiter(Path);
  if FindFirst(Dir + '*.*', faAnyFile, SRec) <> 0 then Exit;
  try
    repeat
      if (SRec.Name = '.') or (SRec.Name = '..') then Continue;
      if (SRec.Attr and faDirectory) = faDirectory then begin // Вот проверка, папка или нет
        node := Form3.TreeView1.Items.AddChild(node, SRec.Name);

        FindFiles(Dir + SRec.Name, Mask, node)
      end
      else
      begin
        if MatchesMask(Dir + SRec.Name, Mask) then
        begin
          Form3.TreeView1.Items.AddChild(node, SRec.Name);
        end;
      end;
    until FindNext(SRec) <> 0;
  finally
    FindClose(SRec);
  end;
end;

но не правильно.

Добавлено через 10 мин.

procedure FindFiles(const Path, Mask: String; node: TTreeNode);
var
  SRec: TSearchRec;
  Dir: string;
  mynode : TTreeNode;
begin
  Dir := IncludeTrailingPathDelimiter(Path);
  if FindFirst(Dir + '*.*', faAnyFile, SRec) <> 0 then Exit;
  try
    repeat
      if (SRec.Name = '.') or (SRec.Name = '..') then Continue;
      if (SRec.Attr and faDirectory) = faDirectory then begin // Вот проверка, папка или нет
        mynode := Form3.TreeView1.Items.AddChildObject(node, SRec.Name, nil);

        FindFiles(Dir + SRec.Name, Mask, mynode)
      end
      else
      begin
        if MatchesMask(Dir + SRec.Name, Mask) then
        begin
          Form3.TreeView1.Items.AddChildObject(node, SRec.Name,nil);

        end;
      end;
    until FindNext(SRec) <> 0;
  finally
    FindClose(SRec);
  end;
end;

Добавил локальную переменную - все заработало.
Чудеса, а не рекурсия
А можно сделать, чтобы файлы были упорядочены по алфавиту (это есть) и по типу - т.е. сначала были папки, а потом файлы ?

Сообщение отредактировано: Client - 10.04.2010 18:53

[volvo]

Разбей на 2 части: поиск папок и поиск файлов...

procedure FindFiles(const Path, Mask: String; node: TTreeNode);
var
  SRec: TSearchRec;
  Dir: string;
  mynode : TTreeNode;
begin
  Dir := IncludeTrailingPathDelimiter(Path);
  if FindFirst(Dir + '*.*', faDirectory, SRec) <> 0 then Exit;
  try
    repeat
      if (SRec.Name = '.') or (SRec.Name = '..') then Continue;
      if (SRec.Attr and faDirectory) = faDirectory then begin // проверка, папка или нет
        mynode := Form1.TreeView1.Items.AddChildObject(node, SRec.Name, nil);

        FindFiles(Dir + SRec.Name, Mask, mynode);
      end
    until FindNext(srec) <> 0;

    if FindFirst(Dir + '*.*', faAnyFile, SRec) = 0 then
    try
      repeat
        if (SRec.Attr and faDirectory) <> faDirectory then
          if MatchesMask(Dir + SRec.Name, Mask) then
          begin
            Form1.TreeView1.Items.AddChildObject(node, SRec.Name,nil);
          end;
      until FindNext(SRec) <> 0;
    finally
      FindClose(SRec);
    end;

  finally
    FindClose(SRec);
  end;
end;