Nachtrag: Ich habe jetzt daraus mal eine Funktion gemacht, denn die ShowMessage nützt mir ja nichts. ,)
Delphi-Quellcode:
function TForm1.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.
Name;
GetTags(
Query('
*'));
end;
end;
end;
Jetzt fehlt mir aber der erste Tag, nämlich
foobar.
