IXMLDOMDocument formatieren

[xaromz]

Hallo,

Zitat von schwa226:

Wo sind diese definiert?

in meiner Unit.

Delphi-Quellcode:

function GetNesting(const Node: IXMLDOMNode): Integer;
var
  Parent: IXMLDOMNode;
begin
  Result := 0;
  Parent := Node.parentNode;
  while Assigned(Parent) and (Parent.nodeType <> NODE_DOCUMENT) do
  begin
    Parent := Parent.parentNode;
    Inc(Result);
  end;
end;

function InsertTextNode(const Parent: IXMLDOMNode;
  const Content: WideString; const Index: Integer = -1): IXMLDOMNode;
var
  XML: IXMLDOMDocument;
begin
  if Assigned(Parent) then
  begin
    XML := Parent.ownerDocument;
    if Assigned(XML) then
    begin
      Result := XML.createTextNode(Content);
      if Index = -1 then
        Parent.appendChild(Result)
      else
        Parent.insertBefore(Result, Parent.childNodes[Index]);
    end else
      Result := nil;
  end else
    Result := nil;
end;

Ich hoffe, jetzt fehlt nichts mehr.

Gruß
xaromz