XML File lesen

[Klaus01]

Wahnsinn!!

Delphi-Quellcode:

function getText(aNode:IXMLNode):String;
var
  i: Byte;
  dummyNode: IXMLNode;
begin

  for i:=0 to pred(aNode.ChildNodes.Count) do
    begin
      dummyNode:=aNode.ChildNodes.Get(i);
      if dummyNode.NodeType = ntText then
       result:=result+ANode.Text
      else
       if dummyNode.NodeType = ntElement then
         result:=result+dummyNode.GetText
       else
         if dummyNode.NodeType = ntCData then
            result := dummyNode.NodeValue
         else
           result :='';
      end;
end;

Habe es nur eine wenig umgestrickt.

Danke!

Grüße
Klaus