如何在delphi、virtualstringtree中通过文件名列表建立层次结构

Question

我一直在处理这个问题。

我有一个档案中的文件名列表（这里是文件和文件夹）。此列表如下所示：

folder
folder/index.html
otherfolder

问题是将层次结构放入虚拟字符串树中。所属的文件和文件夹将是根文件夹中的子节点。

有什么想法吗？

Answer 1

这是一个完整的代码。你们读这行，你们拆分这行得到每个子文件夹。如果每个子文件夹已经在树中，则搜索该子文件夹；如果没有，则创建新的子文件夹。使用经典树视图进行测试：）

procedure TForm1.Analyze(ListOfFiles : TStringList);
var
   root: TTreeNode;
   nI: Integer;
   files : TStringList;
  nJ: Integer;
begin
   for nI := 0 to ListOfFiles.Count - 1 do
   begin
        files := TStringList.Create;
        files.Delimiter := '/';
        files.DelimitedText := ListOfFiles[nI];
        root := nil;
        for nJ := 0 to files.Count - 1 do
             root := GetFolder(root, files[nJ])
        FreeAndNil( Files );
   end;
end;
function TForm1.GetFolder( TreeNode : TTreeNode; SubFolder : String ) : TTreeNode;
var
  nI: Integer;
begin
     result := nil;
     if Assigned( TreeNode ) then
     begin
         for nI := 0 to TreeNode.Count - 1 do
         begin
              if SameText(TreeNode.Item[nI].Text, SubFolder) then
              begin
                 result := TreeNode.item[nI];
                 Exit;
              end;
         end;
     end
     else
     begin
         for nI := 0 to TreeView1.Items.Count - 1 do
         begin
              if SameText(TreeView1.Items[nI].Text, SubFolder) then
              begin
                 result := TreeView1.Items[nI];
                 Exit;
              end;
         end;
     end;
     if not Assigned( result ) then
     begin
          result := TreeView1.Items.AddChild( TreeNode, SubFolder );
          Exit;
     end;
end;