9

测试可选节点是否存在的正确方法是什么？我的 XML 片段是：

<Antenna >
  <Mount Model="text" Manufacture="text">
   <BirdBathMount/>
  </Mount>
</Antenna>

但也可能是：

<Antenna >
  <Mount Model="text" Manufacture="text">
   <AzEl/>
  </Mount>
</Antenna>

Antenna 的孩子可以是 BirdBath 或 AzEl，但不能同时是...

在 Delphi XE 中，我尝试过：

 if (MountNode.ChildNodes.Nodes['AzEl'] <> unassigned then //Does not work
 if (MountNode.ChildNodes['BirdBathMount'].NodeValue <> null) then // Does not work
 if (MountNode.BirdBathMount.NodeValue <> null) then  // Does not work

我使用 XMLSpy 创建模式和示例 XML，它们可以正确解析。我使用 Delphi XE 创建绑定，它适用于大多数其他组合。

这一定有一个我刚刚忽略的简单答案——但是什么？谢谢......吉姆

4

4 回答 4

9

您可以使用 XPath，试试这个示例。

uses
  MSXML;


Var
  XMLDOMDocument  : IXMLDOMDocument;
  XMLDOMNode      : IXMLDOMNode;
begin
  XMLDOMDocument:=CoDOMDocument.Create;
  XMLDOMDocument.loadXML(XmlStr);
  XMLDOMNode := XMLDOMDocument.selectSingleNode('//Antenna/Mount/BirdBathMount');
  if XMLDOMNode<>nil then
    Writeln('BirdBathMount node Exist')
  else
  begin
    XMLDOMNode := XMLDOMDocument.selectSingleNode('//Antenna/Mount/AzEl');
    if XMLDOMNode<>nil then
      Writeln('AzEl node Exist');
  end;
end;
于 2012-06-16T00:46:29.620 回答
8

使用 .FindNode。如果节点不存在，则返回 nil。

例如

xmlNode := MountNode.ChildNodes.FindNode('AzEl');
if Assigned(xmlNode) then
...
于 2012-06-16T17:34:09.527 回答
1

我已经成功测试过了。使用此代码。它有点复杂，我需要一个根元素。

xml文件 

<ThisIsTheDocumentElement>
<Antenna >
  <Mount Model="text" Manufacture="text">
   <BirdBathMount/>
  </Mount>
</Antenna>
<Antenna >
  <Mount Model="text" Manufacture="text">
   <AzEl/>
  </Mount>
</Antenna>
</ThisIsTheDocumentElement>

Delphi2010.pas

procedure TForm1.RetrieveDocument;
var
  LDocument: IXMLDocument;
  LNodeElement, LNode,BNode,CNode : IXMLNode;
  I: Integer;
begin
  LDocument := TXMLDocument.Create(nil);
  LDocument.LoadFromFile(XmlFile);
  LNodeElement := LDocument.ChildNodes.FindNode('ThisIsTheDocumentElement');
  if (LNodeElement <> nil) then
  begin
    for I := 0 to LNodeElement.ChildNodes.Count - 1 do
    begin
      LNode := LNodeElement.ChildNodes.Get(I);
       if (LNode <> Nil) AND (LNode.NodeName='Antenna') then begin
          Memo1.lines.Add('Node name: ' + LNode.NodeName);
          BNode:=LNode.ChildNodes.FindNode('Mount');
         if (BNode <> Nil) then CNode:=BNode.ChildNodes.FindNode('AzEl');
            if (CNode <> Nil) then Memo1.lines.Add('found: '+CNode.NodeName) else continue;
       end;
    end;
  end;
end;

输出：

Node name: Antenna
Node name: Antenna
found: AzEl
于 2012-06-16T03:12:52.217 回答
0

对我有用的是：

if (MountNode.ChildNodes.FindNode('AzEl') <> nil) then

我不清楚它如何nil响应 TXMLDocumnet 上的选项设置，doAttrNull但它可以工作。

于 2012-06-18T00:22:55.743 回答