Thema: Delphi XML Knoten vertauschen

Einzelnen Beitrag anzeigen

axelf98

Registriert seit: 27. Aug 2003
Ort: Ennepetal
440 Beiträge
 
Delphi 2005 Personal
 
#3

Re: XML Knoten vertauschen

  Alt 9. Okt 2007, 14:09
Deine Idee war schon nicht schlecht. So geht es auf jeden Fall (Man muss nur wissen welcher oben steht):
Delphi-Quellcode:
procedure TScheduler.VertauscheTagesPlan(p1, p2,pDisp: String);
var node,node1,node2,new: IXMLDOMNode;
begin
   node1 := XMLScheduler.selectSingleNode('Planer/Tage/Eintrag[ID="' + p1 + '"]');
   node2 := XMLScheduler.selectSingleNode('Planer/Tage/Eintrag[ID="' + p2 + '"]');
   if (node1 <> nil) and (node2 <> nil) then
   begin
        node := node1.parentNode;
        new := node2.cloneNode(true);
        node.insertBefore(new,node1);
        node.removeChild(node2);
   end;
end;
  Mit Zitat antworten Zitat