Hallo Leute, ich stehe greade wieder mal auf dem Schlauch, könnte mir jemand bitte auf die Sprünge helfen?
Ich will eine
XML rekursiv durchlaufen um einen bestimmten Knoten darin zu finden. Hänge aber gerade irgendwie...
Irgendwie durchläuft Delphi den Baum nicht ganz...
Folgendes habe ich propiert:
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
if Node.IsTextElement then
if Node.NodeName = aString then
ShowMessage('gefunden');
if not Node.IsTextElement then
RekursiveSuche(Node.ChildNodes.First,aString);
end;
end;
Ich weiß, es ist ein triviales Problem, aber komm gerdade nicht auf meinen Fehler...
Wäre nett, wenn jemand kurz drüber sehen könnte.
vielen Dank.
mc