Registriert seit: 12. Jan 2005
271 Beiträge
Delphi 7 Enterprise
|
Re: (unbekannte) XML Dateien zusammenführen bzw. mergen
24. Sep 2009, 10:08
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;
|
|
Zitat
|