ChildNodes innerhalb eines Knoten in der Anordnung tauschen.

[himitsu]

Delphi-Quellcode:

uses XMLIntf;

procedure SwapSubnodes(Node1, Node2: IXMLNode);
var i, i2: Integer;
begin
  i2 := Node2.ChildNodes.Count;
  for i := 0 to Node1.ChildNodes.Count - 1 do
    Node2.ChildNodes.Insert(i2 + i, Node1.ChildNodes[i]);
  for i := 0 to i2 - 1 do
    Node1.ChildNodes.Insert(i, Node2.ChildNodes[i]);
end;