Ich habe jetzt im Endeffekt eine lauffähige rekursive Funktion, die den Namen des Unterlementes an den Parent-Namen (mit Punkt getrennt) anhängt. Das ganze wird
Code:
procedure IterateNode(ARoot: IXMLNode; ACurrentNodeName: String = '');
var
lChild: IXMLNode;
lNodeName: String;
begin
lNodeName := IfThen(ACurrentNodeName <> '', ACurrentNodeName + '.', '');
lChild := ARoot.ChildNodes.First;
while Assigned(lChild) do
begin
if Not lChild.IsTextElement then
begin
if lChild.ChildNodes.Count > 0 then
begin
if DoIterate(lChild.NodeName) then
begin
CodeSite.EnterMethod(lChild.NodeName);
IterateNode(lChild, lNodeName + lChild.NodeName);
CodeSite.ExitMethod(lChild.NodeName);
end;
end;
end else begin
CodeSite.Send(csmLevel1, lNodeName + lChild.NodeName, VarToStr(lChild.NodeValue));
end;
lChild := lChild.NextSibling;
end;
end;
Im Codesite wird das dann als Baum ausgegeben, leere Elemente werden unterdrückt. Dazu gibt es noch einen Aufruf von DoIterate, der Falsxe zurückliefert, wenn etwas nicht durchgegangen werden soll (ich muss einige Sachen gesondert behandeln).
Jedenfalls ist es eine lauffähige Lösung, damit der Thread auch einen Abschluss hat
