xml - 如何读取childnode的xml子节点

Question

我需要有关 xml 文件的帮助:

<xmlData date="11.04.2014 18:59:15">
 <Table>
   <ean>888182228609</ean>
   <ident>YH5G16EA</ident>
   <properties>
     <property title="Pomnilnik">4GB</property>
     <property title="Trdi disk">500GB</property>
     <property title="Optična enota">BREZ</property>
   </properties>
 </Table>
 <Table>
   <ean>888182228609</ean>
   <ident>YH5G16EA</ident>
   <properties>
     <property title="Pomnilnik">5GB</property>
     <property title="Trdi disk">600GB</property>
     <property title="Optična enota">BREZ</property>
   </properties>
 </Table>
 <Table>
   <ean>888182228609</ean>
   <ident>YH5G16EA</ident>
   <properties>
     <property title="Pomnilnik">7GB</property>
     <property title="Trdi disk">700GB</property>
     <property title="Optična enota">BREZ</property>
   </properties>
 </Table>
</xmlData>

我知道如何阅读<ean>和<ident>但我在阅读 <property> 时遇到问题，我想得到像“pomnilnik:7GB”或“Trdi disk:700GB”这样的结果。

如果我使用此代码:

procedure TForm1.BitBtn4Click(Sender: TObject);
var
  DOC:IXMLDocument;
  i: Integer;
  OrderChilds, properties_Node: IXMLNode;
begin
  DOC := LoadXMLDocument('c:\temp\diss.xml');
  for i := 0 to DOC.ChildNodes.Nodes['xmlData'].ChildNodes.Count - 1 do
  begin
    OrderChilds := DOC.ChildNodes.Nodes['xmlData'].ChildNodes[i];
    if OrderChilds.NodeName = 'Table' then  
    begin
      properties_Node := OrderChilds.ChildNodes.Nodes['properties'];
      if Assigned(properties_Node) then 
        Memo1.Lines.Add(properties_Node.ChildNodes.Nodes['property'].NodeValue)
    end;
  end;
end;

我只获取每个表中的第一个属性。我想读取第一个表中的所有属性，然后转到下一个表并读取属性等等。

Answer 1

您必须循环遍历properties_Node 中的所有子节点。与您对 xmlData 所做的相同。

propChildList := properties_Node.ChildNodes;
for j := 0 to propChildList.Count - 1 do begin
    Memo1.Lines.Add(propChildList.Nodes[j].NodeValue);
end;

这里是完整的工作示例:

procedure TForm1.Button1Click(Sender: TObject);
var
  DOC:IXMLDocument;
  i, j: Integer;
  OrderChilds, properties_Node: IXMLNode;
  propChildList: IXMLNodeList;
begin
  DOC := LoadXMLDocument('c:\temp\diss.xml');
  for i := 0 to DOC.ChildNodes.Nodes['xmlData'].ChildNodes.Count - 1 do
  begin
    OrderChilds := DOC.ChildNodes.Nodes['xmlData'].ChildNodes[i];
    if OrderChilds.NodeName = 'Table' then
    begin
      properties_Node := OrderChilds.ChildNodes.Nodes['properties'];
      if Assigned(properties_Node) then begin
        propChildList := properties_Node.ChildNodes;
        for j := 0 to propChildList.Count - 1 do begin
          Memo1.Lines.Add(propChildList.Nodes[j].NodeValue);
        end;
      end;
    end;
  end;
end;