(unbekannte) XML Dateien zusammenführen bzw. mergen

[padavan]

Delphi-Quellcode:

while Assigned(NodeAnother) do
begin
  NodeNext := NodeAnother.NextSibling;
  i := 0;
  while (i < NodeBase.childNodes.length)
      and (not Assigned(NodeBase.childNodes[i].firstChild)
        or not Assigned(NodeAnother.firstChild)
        or (NodeBase.childNodes[i].firstChild)
          <> NodeAnother.firstChild.text)) do      //<<<< operator not applicable to this operand type
    Inc(i);
  if i < NodeBase.childNodes.length then
  begin
    for i2 := 0 to NodeBase.childNodes[i].childNodes.length - 1 do
      NodeBase.childNodes[i].removeChild(NodeBase.childNodes[i].firstChild); // <<<< wo kommt i2 rein?
    for i2 := 0 to NodeAnother.childNodes.length - 1 do
      NodeBase.childNodes[i].appendChild(NodeAnother.childNodes[0]); // <<<< wo kommt i2 rein?
  end else
    NodeBase.appendChild(NodeAnother);
  NodeAnother := NodeNext;
end;