XML File lesen

[Klaus01]

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