XML File lesen

[marabu]

Hallo Klaus,

probiere mal das hier:

Delphi-Quellcode:

function GetText(e: IXMLDOMElement): String;
var
  i: Integer;
  n: IXMLDOMNode;
begin
  Result := '';
  for i := 0 to Pred(e.childNodes.length) do
  begin
    n := e.childNodes.item[i];
    if n.nodeType = NODE_TEXT then
      Result := Result + n.text else
    if n.nodeType = NODE_ELEMENT then
      Result := Result + GetText(n as IXMLDOMElement) else
    if n.nodeType = NODE_CDATA_SECTION then
      Result := n.nodeValue else
    // skip any other nodeType
      ;
  end;
end;

Freundliche Grüße