Was du heute kannst besorgen...
Ohne MSXML5:
Delphi-Quellcode:
procedure TransferNode(nParentSrc, nParentDst: IXMLDOMNode; index: integer);
var
n: IXMLDOMNode;
begin
n := nParentSrc.childNodes.item[index];
nParentDst.appendChild(nParentSrc.removeChild(n));
end;
[edit] Oder einfach:
Delphi-Quellcode:
procedure TransferNode(nParentSrc, nParentDst: IXMLDOMNode; index: integer);
begin
nParentDst.appendChild(nParentSrc.childNodes.item[index]);
end;
Das geht zur Not schon ohne procedure...[/edit]
marabu