himXML (gesprochen himix ML)

[Medium]

Moin Himi!

Erstmal ganz ganz heissen Dank für dieses Prunkstück! Damit lässt sich wirklich komfortabel arbeiten.

Bis auf...
Ich möchte ganz gerne zwei (benachbarte) Nodes vertauschen, jedoch habe ich Probleme mit der Insert()-Funktion. Diese lässt scheinbar die Fäden des eingefügten Nodes baumeln, oder so etwas in diese Richtung. Ziel ist es einen Node nach oben oder unten wandern lassen zu können.

Delphi-Quellcode:

// Alle Nodes haben ein Attribut "ID", welches in den Tags der Listbox-Items wieder auftaucht.
// Dadurch kann ich querindizieren, egal was wo in welcher Liste genau an welcher internen Array-
// Position steht.
var
  n, f: TXMLNode;
  fi, iid, fiid: Integer;
begin
  iid  := lbElements.ListBoxItems[lbElements.ItemIndex].Tag; // ID-Attribut des Nodes zum selektierten Listbox-Eintrag ermitteln
  fiid := lbElements.ListBoxItems[lbElements.ItemIndex+1].Tag; // Auch die ID des in der Listbox folgenden Eintrags
  n := CurrentFrameXML.RootNode.Nodes['#Element>ID='+IntToStr(iid)]; // Node zur ID finden
  f := CurrentFrameXML.RootNode.Nodes['#Element>ID='+IntToStr(fiid)]; // Auch zum nächsten

  fi := CurrentFrameXML.RootNode.Nodes.IndexOf(f); // Index im internen Array zum Folgeknoten ermitteln
  CurrentFrameXML.RootNode.Nodes.Insert(CurrentFrameXML.Nodes.CloneNode(n), fi); // An diese Stelle eine Kopie von "n" einfügen
  CurrentFrameXML.RootNode.Nodes.Delete(n); // Das alte "n" killen
  XMLToListBox(CurrentFrameXML); // Die flache knotenstruktur in ne LB werfen
end;

Das ganze funktioniert nur so lange, wie der Folgeknoten "f" nicht schon vorher einmal verschoben wurde! Dann nämlich wird dieser in der Zeile "fi := ..." nicht mehr gefunden, und die gesamte Struktur ist dahin. (Der Node an sich wird gefunden, sein Index allerdings nicht mehr.) Genauer gesagt wird dann an Index -1 ge-inserted, wodurch nur noch dieser Node in der Liste ist. So als würde der RootNode geleert, und dieser als einziger eingefügt.

Die Listbox wird in der Reihenfolge des internen Arrays vom RootNode befüllt, so dass in der Listbox benachbarte Einträge auch im RootNode benachbarten Knoten entsprechen sollten.

Wat ist da los? Oder geht das 100x einfacher, und es ist für mich nur zu spät geworden heut abend?