Как найти узел, используя NativeXml: Delphi - PullRequest
Новая
       17

Как найти узел, используя NativeXml: Delphi

2 голосов
/ 28 января 2012

Я пытаюсь использовать NativeXml , да, это проще, чем xmldocument, но я все еще не могу найти решение, чтобы найти узел с несколькими именами .. 

<item>
  <name>Manggo Salad</name>
  <feature>Good</feature>
  <feature>Excelent</feature>
  <feature>Nice Food</feature>
  <feature>love this</feature>
</item>

как найти "фичу" ??

Ответы [ 2 ]

3 голосов
/ 28 января 2012

TXmlNode.FindNodes принимает NodeName и TXmlNodeList/TsdNodeList, которые будут заполнены всеми узлами, соответствующими этому имени. Если вы не хотите, чтобы это было рекурсивно, используйте NodesByName.

1 голос
/ 28 января 2012

Вот еще одно приземленное возможное решение: 

program NodeAccess;

{$APPTYPE CONSOLE}

(*

Assumption

<item>
  <name>Manggo Salad</name>
  <feature>Good</feature>
  <feature>Excelent</feature>
  <feature>Nice Food</feature>
  <feature>love this</feature>
</item>

as XML is stored in "sample.xml" file along with binary executable
of this program.

Purpose
  How to iterate multiple occurence of the "feature" node

*)

uses
  SysUtils,
  NativeXML;

const
  cXMLFileName = 'sample.xml';

var
  i,j: Integer;
  AXMLDoc: TNativeXml;

begin
  try
    Writeln('Sample iterating <',cXMLFileName,'>');
    Writeln;

    AXMLDoc := TNativeXml.Create(nil);

    try
      AXMLDoc.LoadFromFile(cXMLFileName);

      if Assigned(AXMLDoc.Root) then
        with AXMLDoc.Root do
          for i := 0 to NodeCount - 1 do
          begin
            if Nodes[i].Name='feature' then
              for j := 0 to Nodes[i].NodeCount - 1 do
                Writeln('  ',Nodes[i].Name, ' >>> ', Nodes[i].Nodes[j].Value)
          end;
    finally
      AXMLDoc.Free;
    end;

    Writeln;
    Writeln('Hit Return to quit');
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
...