Отображение XML в виде дерева (TreeView): Delphi

Во многих программах конфиги хранятся в файлах формата XML. Встала задача — отобразить XML в виде дерева.

Создаем форму, на которой обязательно должны присутствовать кнопка открытия файла (и OpenDialog, соответственно) и TreeView. Остальное — опционально.


Подключаем библиотеки XmlDoc, XMLIntf (про XMLIntf, возможно, напишу отдельным постом).

Объявляем класс TNodeRec.

type
  TNodeRec = class
    TreeNode : TTreeNode;
    XMLNode : iXMLNode;
  end;

Переменные:

var
  XDoc    : TXMLDocument;
  FName   : String;
  bkpXml  : String;
  CurrNode,
  ClipboardNode : iXMLNode;

Функции:

function GetPathByNodeIdx (T : TTreeNode) : TStringList;
begin
  Result:= TStringList.Create;
  if T=nil then exit;
  while T.Parent<>nil do
   begin
    Result.Insert(0,IntToStr(integer(T.Data)));
    T:=T.Parent;
   end;
  Result.Insert(0,IntToStr(integer(T.Data)));
end;

function SetXmlPosByPathIdx (aSL: TStringList; aXmlDocument : TXMLDocument) : IXMLNode;
var
  i : integer;
  iNODE : IXMLNode;
begin
  iNode:=nil;
  if aSL.Count=0 then exit;
  try
   iNODE:=XDoc.ChildNodes.Nodes [StrToInt(aSL[0])];
   for i:=1 to aSL.Count -1 do
     iNode:=iNODE.ChildNodes[StrToInt(aSL[i])];
   Result:=iNODE;
  except
  end;
end;

На OnCreate формы вешаем:

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  XDocNodesList:=TList.Create;
  XDoc:=TXMLDocument.Create(Self);
  XDoc.Active:=true;
  OpenDialog.InitialDir:=ExtractFilePath(ParamStr(0));
end;

На OnDestroy:

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
 ClearNodeList;
 XDocNodesList.Free;
 XDoc.Free;
end;

Обработчик нажатия на кнопку "Загрузить XML":

procedure TfrmMain.acLoadExecute(Sender: TObject);
var
  i : integer;
  tmpNode : IXMLNode;
begin
  if OpenDialog.Execute then
    begin
      FName:=OpenDialog.FileName;
      SaveDialog.FileName:=FName;
      XDoc.LoadFromFile(FName);

      for i:=0 to XDoc.ChildNodes.Count - 1 do
        begin
          tmpNode:=XDoc.ChildNodes[i];
          TreeView.Items.AddChildObject(TreeView.TopItem,tmpNode.NodeName,
                                      pointer(i));
          if tmpNode.HasChildNodes then TreeView.TopItem.HasChildren:=true;
        end;
    end;
  acRefresh.Execute;
  bkpXml:=XDoc.XML.Text;
end;

После этого мы уже можем в первый раз опробовать работу программы: в TreeView загрузится XML, но нам будет видно только рутовую вершину (как на 1-ом рисунке). Чтобы можно было разворачивать узлы и просматривать их текст и атрибуты — надо написать еще несколько обработчиков.

procedure TfrmMain.acRefreshExecute(Sender: TObject);
var
  i : integer;
  tmpNode : IXMLNode;
begin
  RebuildTree;
  acRefreshMemBody.execute;
end;

procedure TfrmMain.RebuildTree;
var
  i : integer;
  XNodeItem  : iXmlNode;
  PNodeItem,
  SelectedTrNode,
  TrNodeItem,
  TrNodeChild : TTreeNode;
  NodeRec,
  ChildNodeRec   : TNodeRec;
  Index          : integer;
  SL             : TStringList;
begin
  SL:=GetPathByNodeIdx (TreeView.Selected);
  CurrNode:=SetXmlPosByPathIdx (SL, XDoc);
  SL.Free;

  Index :=0;
  TreeView.Items.Clear;
  ClearNodeList;
  NodeRec:=TNodeRec.Create;
  TrNodeItem:=TreeView.TopItem;
  NodeRec.TreeNode:=TrNodeItem;
  XNodeItem:=XDoc.Node;
  NodeRec.XMLNode:=XNodeItem;
  XDocNodesList.Add(NodeRec);

  while XDocNodesList.Count > Index do
    begin
      NodeRec:=TNodeRec(XDocNodesList[Index]);
      XNodeItem:=NodeRec.XMLNode;
      TrNodeItem:=NodeRec.TreeNode;
      if XNodeItem=CurrNode then SelectedTrNode:=TrNodeItem;
      for i:=0 to XNodeItem.ChildNodes.Count -1  do
        begin
          if XNodeItem.ChildNodes[i].NodeName<>'#text' then
            TrNodeChild:=
              TreeView.Items.AddChildObject(
              TrNodeItem,
              XNodeItem.ChildNodes[i].NodeName,
              pointer(i));

          ChildNodeRec:=TNodeRec.Create;
          ChildNodeRec.TreeNode:=TrNodeChild;
          ChildNodeRec.XMLNode:=XNodeItem.ChildNodes[i];
          XDocNodesList.Add(ChildNodeRec);
        end;
      inc(Index);
    end;

  if SelectedTrNode<>nil then SelectedTrNode.Selected:=true;
  TreeView.Select(SelectedTrNode,[]);
end;

Сейчас при перемещении по узлам уже наблюдаем более-менее приемлемый результат:





Дальше остается решить вопросы редактирования и добавления узлов и атрибутов.) Это будет домашним заданием.
___

Редакция от 13.01.2010
Продолжение цикла статей:
Добавление и удаление узлов (вершин) в XML в Delphi (с использованием компонента TTreeView). Там же вы найдете ссылку для скачивания исходников.

Статьи схожей тематики: