XML2Tree function

// Solution 1:
procedure Tree2XML(ADoc: TXMLDocument);
begin
  // Assuming ADoc.Active = True and ADoc.DocumentElement exists
  ProcessTreeNode(Tree.Items.GetFirstNode,ADoc.DocumentElement);
end;
 
procedure ProcessTreeNode(TreeNode: TTreeNode; XMLNode: IXMLNode);
var
  NewNode: IXMLNode;
begin
  if Assigned(TreeNode) and Assigned(XMLNode) then
  begin
    // Figure out what node to create.
    // I believe the level property on a tree node is 0 based.
    // You might want to double check.
    case TreeNode.Level of
      0: begin
           NewNode := XMLNode.AddChild('companys');
           NewNode.Attributes['name'] := TreeNode.Text;
           ProcessTreeNode(TreeNode.getNext,NewNode);
         end;
      1: begin
           NewNode := XMLNode.AddChild('task');
           NewNode.Attributes['name'] := TreeNode.Text;
           ProcessTreeNode(TreeNode.getNext,NewNode);
         end;
      else begin
           with XMLNode.AddChild('timeassumption') do
           begin
             Attributes['name'] := TreeNode.Text;
             NodeValue := TreeNode.getFirstChild.Text;
           end;
           with XMLNode.AddChild('packagedelivery') do
           begin
             Attributes['name'] := TreeNode.getNextSibling.Text;
             NodeValue := TreeNode.getNextSibling.getFirstChild.Text;
           end;
         end;
    end;
  end;
end;
 
 
// Solution 2:
procedure Tree2XML(ADoc: TXMLDocument);
begin
  // Assuming ADoc.Active = True and ADoc.DocumentElement exists
  ProcessTreeNode(Tree.Items.GetFirstNode,ADoc.DocumentElement);
end;
 
procedure ProcessTreeNode(TreeNode: TTreeNode; XMLNode: IXMLNode);
var
  NewNode: IXMLNode;
begin
  if Assigned(TreeNode) and Assigned(XMLNode) then
  begin
    // If a tree node does not have any children then don't add the
    // TreeNode.Text as an attribute, add it as a NodeValue.
    if not TreeNode.hasChildren then
      with XMLNode.AddChild('item') do
        NodeValue := TreeNode.Text;
    else
    begin
      NewNode := XMLNode.AddChild('item');
      NewNode.Attributes['name'] := TreeNode.Text;
      ProcessTreeNode(TreeNode.getFirstChild,NewNode);
    end;
    ProcessTreeNode(TreeNode.getNextSibling,XMLNode);
  end;
end;
 
// If you use Solution 2 make this change to your XML2Tree ProcessNode
// procedure.
// Substitue this code for the line:
// TreeNode := 
// tree.Items.AddChild(TreeNode,Node.Attributes[0].NodeValue);
if Node.HasAttribute('name') then
  tree.Items.AddChild(TreeNode,Node.Attributes[0].NodeValue)
else
  tree.Items.AddChild(TreeNode,Node.NodeValue);