XML rekursiv durchsuchen

[mcbain]

Habs nun hinbekommen.
Danke für den Hinweis Alaitoc.

Code:

 procedure RekursiveSuche(aStartNode: IXMLNode; aString: string);
   var Node: IxmlNode;
       i: integer;
   begin
     Node := aStartNode;
     for i := 0 to Node.ChildNodes.Count - 1 do
     begin
        ShowMessage(Node.ChildNodes.Nodes[i].NodeName);

       if Node.ChildNodes.Nodes[i].IsTextElement then
          if Node.ChildNodes.Nodes[i].NodeName = aString then
             ShowMessage('gefunden');

       if not Node.ChildNodes.Nodes[i].IsTextElement then
          RekursiveSuche(Node.ChildNodes.Nodes[i],aString);
     end;

   end;

[Iwo Asnet]

Gepimpt...

Delphi-Quellcode:

procedure RekursiveSuche(aStartNode: IXMLNode; aString: string);
var 
  i: integer;

begin
  for i := 0 to aStartNode.ChildNodes.Count - 1 do
  begin
    ShowMessage(aStartNode.ChildNodes.Nodes[i].NodeName);
    if aStartNode.ChildNodes.Nodes[i].IsTextElement then
      if aStartNode.ChildNodes.Nodes[i].NodeName = aString then
        ShowMessage('gefunden')
      else
    else
      RekursiveSuche(aStartNode.ChildNodes.Nodes[i],aString);
  end;
end;

[himitsu]

XPath?