XML rekursiv durchsuchen

[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;