Jetzt wollte ich das in eine rekursive Funktion umbauen:
Delphi-Quellcode:
function GetTags(iter: IXMLIteratorEx): string;
var
xn : IXMLNode;
begin
while iter.HasNext do
begin
xn := iter.Next;
if xn.IsTag then
with xn as IXMLTag do
begin
result := (xn as IXMLTag).Name;
end
else
result := GetTags((xn as IXMLTag).Children);
end;
end;
Da bekomme ich aber in Zeile 14 den Fehler zur Laufzeit:
Zitat:
'Schnittstelle nicht unterstützt'.
Idee war es, das ganze in einem Treeview mit den entsprechenden Ebenen darzustellen, irgendwie oder so.
Ich hätte dann noch eine globale Integer Variable mitgeführt, die entsprechend der Ebene hoch oder runtergesetzt wird oder so eben. Ich weiß noch nicht ganz genau, wie das gehen soll.