Habe das jetzt so gelöst.
Delphi-Quellcode:
ANode:=XMLDocument1.DocumentElement.ChildNodes.FindNode('
channel');
BNode:= ANode.ChildNodes.FindNode('
title');
if (BNode.NodeType = ntElement)
then
try
result:=BNode.Text;
except
on e:
Exception do
begin
result:=copy(BNode.XML,pos('
CDATA[',BNode.XML)+6,length(BNode.XML));
result:=copy(result,1,pos('
]',result)-1);
end;
end;
Ist nicht sehr elegant, wenn jemand eine bessere Lösung bzw.
Lösungsansatz hat bitte melden.
Was mir daran nicht so ganz passt ist, daß ich erst eine
Exception abwarten muß
um zu erfahren daß das Element kein Textelement ist.
Grüße
Klaus