如何确定XMLNode在XML文档中的位置？

我正在使用

TXMLDocument

解析XML文档（从文件或内存），并将其显示在树视图中。有没有办法获取XML内容中

XMLNode

的字符位置和长度？我想突出显示原始文档中的节点文本，无论是当用户在树中选择其等效节点时，还是当该节点存在一些奇怪的情况时，如空值、错误文本等

---

我读过，但不知道如何在Delphi中实现它。

唯一可以提供此信息的类是XML解析器。我不知道TXMLDocument是否这样做（我找不到任何东西）。但文件中的确切位置可能有问题。通常，XML文档可能是脏文件，需要一些格式来显示。如果是这样，则问题将更改为在格式化后确定节点的位置。这样做稍微容易一些，因为您可以使用相同的数据（IXMLNode）来填充树并显示格式化的XML

我使用

FormatXMLData

在RichEdit中显示XML，并使用

domtree

from填充树。我更改了

domtoree

，以保留每个节点的行索引。结果是这样的：

procedure TForm1.DomToTree (XmlNode: IXMLNode; TreeNode: TTreeNode;
  var CurrentLineIndex: Integer); // <--- added this parameter
var
  I: Integer;
  NewTreeNode: TTreeNode;
  NodeText: string;
  AttrNode: IXMLNode;
begin
  // skip text nodes and other special cases
  if XmlNode.NodeType <> ntElement then
    Exit;
  // add the node itself
  NodeText := XmlNode.NodeName;
  if XmlNode.IsTextElement then
    NodeText := NodeText + '=' + XmlNode.NodeValue;
  NewTreeNode := TreeView1.Items.AddChildObject(TreeNode, NodeText, Pointer(CurrentLineIndex));
  // add attributes
  for I := 0 to xmlNode.AttributeNodes.Count - 1 do
  begin
    AttrNode := xmlNode.AttributeNodes.Nodes[I];
    TreeView1.Items.AddChildObject(NewTreeNode,
      '[' + AttrNode.NodeName + '="' + AttrNode.Text + '"]', Pointer(CurrentLineIndex));
  end;
  Inc(CurrentLineIndex);
  // add each child node
  if XmlNode.HasChildNodes then
  begin
    for I := 0 to xmlNode.ChildNodes.Count - 1 do
    begin
      DomToTree (xmlNode.ChildNodes.Nodes[I], NewTreeNode, CurrentLineIndex);
    end;
    Inc(CurrentLineIndex);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstLineIndex: Integer;
begin
  with TOpenDialog.Create(Self) do
  begin
    if Execute then
    begin
      XMLDocument1.LoadFromFile(FileName);
      Treeview1.Items.Clear;
      FirstLineIndex := 1;
      DomToTree (XMLDocument1.DocumentElement, nil, FirstLineIndex);
      TreeView1.FullExpand;
      RichEdit1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
    end;
    Free;
  end;
end;

<?xml version="1.0" standalone="yes"?>
<DATAPACKET Version="2.0">
  <METADATA>
    <FIELDS>
      <FIELD attrname="ClientDataSet1FieldCode" fieldtype="i4"/>
      <FIELD attrname="ClientDataSet1FieldContact" fieldtype="string" WIDTH="50"/>
      <FIELD attrname="ClientDataSet1FieldNoTell" fieldtype="string" WIDTH="15"/>
    </FIELDS>
    <PARAMS CHANGE_LOG="1 0 4"/>
  </METADATA>
  <ROWDATA>
    <ROW RowState="4" ClientDataSet1FieldCode="1" ClientDataSet1FieldContact="Ali" ClientDataSet1FieldNoTell="012345678"/>
  </ROWDATA>
</DATAPACKET>

整个事情都是这样开始的：

procedure TForm1.DomToTree (XmlNode: IXMLNode; TreeNode: TTreeNode;
  var CurrentLineIndex: Integer); // <--- added this parameter
var
  I: Integer;
  NewTreeNode: TTreeNode;
  NodeText: string;
  AttrNode: IXMLNode;
begin
  // skip text nodes and other special cases
  if XmlNode.NodeType <> ntElement then
    Exit;
  // add the node itself
  NodeText := XmlNode.NodeName;
  if XmlNode.IsTextElement then
    NodeText := NodeText + '=' + XmlNode.NodeValue;
  NewTreeNode := TreeView1.Items.AddChildObject(TreeNode, NodeText, Pointer(CurrentLineIndex));
  // add attributes
  for I := 0 to xmlNode.AttributeNodes.Count - 1 do
  begin
    AttrNode := xmlNode.AttributeNodes.Nodes[I];
    TreeView1.Items.AddChildObject(NewTreeNode,
      '[' + AttrNode.NodeName + '="' + AttrNode.Text + '"]', Pointer(CurrentLineIndex));
  end;
  Inc(CurrentLineIndex);
  // add each child node
  if XmlNode.HasChildNodes then
  begin
    for I := 0 to xmlNode.ChildNodes.Count - 1 do
    begin
      DomToTree (xmlNode.ChildNodes.Nodes[I], NewTreeNode, CurrentLineIndex);
    end;
    Inc(CurrentLineIndex);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstLineIndex: Integer;
begin
  with TOpenDialog.Create(Self) do
  begin
    if Execute then
    begin
      XMLDocument1.LoadFromFile(FileName);
      Treeview1.Items.Clear;
      FirstLineIndex := 1;
      DomToTree (XMLDocument1.DocumentElement, nil, FirstLineIndex);
      TreeView1.FullExpand;
      RichEdit1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
    end;
    Free;
  end;
end;

<?xml version="1.0" standalone="yes"?>
<DATAPACKET Version="2.0">
  <METADATA>
    <FIELDS>
      <FIELD attrname="ClientDataSet1FieldCode" fieldtype="i4"/>
      <FIELD attrname="ClientDataSet1FieldContact" fieldtype="string" WIDTH="50"/>
      <FIELD attrname="ClientDataSet1FieldNoTell" fieldtype="string" WIDTH="15"/>
    </FIELDS>
    <PARAMS CHANGE_LOG="1 0 4"/>
  </METADATA>
  <ROWDATA>
    <ROW RowState="4" ClientDataSet1FieldCode="1" ClientDataSet1FieldContact="Ali" ClientDataSet1FieldNoTell="012345678"/>
  </ROWDATA>
</DATAPACKET>

但它并不像预期的那样是可靠的代码，因为

domtoree

和

FormatXMLData

不能正常工作。我用一些文件测试了代码，但很多文件都失败了。最好的方法是重写它们。但是，如果您想测试代码，它可以与以下内容一起工作：

procedure TForm1.DomToTree (XmlNode: IXMLNode; TreeNode: TTreeNode;
  var CurrentLineIndex: Integer); // <--- added this parameter
var
  I: Integer;
  NewTreeNode: TTreeNode;
  NodeText: string;
  AttrNode: IXMLNode;
begin
  // skip text nodes and other special cases
  if XmlNode.NodeType <> ntElement then
    Exit;
  // add the node itself
  NodeText := XmlNode.NodeName;
  if XmlNode.IsTextElement then
    NodeText := NodeText + '=' + XmlNode.NodeValue;
  NewTreeNode := TreeView1.Items.AddChildObject(TreeNode, NodeText, Pointer(CurrentLineIndex));
  // add attributes
  for I := 0 to xmlNode.AttributeNodes.Count - 1 do
  begin
    AttrNode := xmlNode.AttributeNodes.Nodes[I];
    TreeView1.Items.AddChildObject(NewTreeNode,
      '[' + AttrNode.NodeName + '="' + AttrNode.Text + '"]', Pointer(CurrentLineIndex));
  end;
  Inc(CurrentLineIndex);
  // add each child node
  if XmlNode.HasChildNodes then
  begin
    for I := 0 to xmlNode.ChildNodes.Count - 1 do
    begin
      DomToTree (xmlNode.ChildNodes.Nodes[I], NewTreeNode, CurrentLineIndex);
    end;
    Inc(CurrentLineIndex);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  FirstLineIndex: Integer;
begin
  with TOpenDialog.Create(Self) do
  begin
    if Execute then
    begin
      XMLDocument1.LoadFromFile(FileName);
      Treeview1.Items.Clear;
      FirstLineIndex := 1;
      DomToTree (XMLDocument1.DocumentElement, nil, FirstLineIndex);
      TreeView1.FullExpand;
      RichEdit1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text);
    end;
    Free;
  end;
end;

<?xml version="1.0" standalone="yes"?>
<DATAPACKET Version="2.0">
  <METADATA>
    <FIELDS>
      <FIELD attrname="ClientDataSet1FieldCode" fieldtype="i4"/>
      <FIELD attrname="ClientDataSet1FieldContact" fieldtype="string" WIDTH="50"/>
      <FIELD attrname="ClientDataSet1FieldNoTell" fieldtype="string" WIDTH="15"/>
    </FIELDS>
    <PARAMS CHANGE_LOG="1 0 4"/>
  </METADATA>
  <ROWDATA>
    <ROW RowState="4" ClientDataSet1FieldCode="1" ClientDataSet1FieldContact="Ali" ClientDataSet1FieldNoTell="012345678"/>
  </ROWDATA>
</DATAPACKET>