XML - ChildNode - Exist? (Wert "Exist"?)

[Real-TTX]

Hallo,

Ich habe mir einige Funktion für mein Programm im Bezug auf XML geschrieben.

Nun habe ich das Problem, ich würde gerne Prüfen, ob eine ChildNode Existiert. Ist das Möglich?
Dabei soll ich festlegen können in welchem "Level" Sie zb Exisitert....

Hier meine Funktion ohne diese Abfrage (Sehr sehr wage) :

Delphi-Quellcode:

function XMLDBDeleteGroup(XMLFile: IXMLDocument; GrpName: string) : boolean;
var
    i: integer;
begin
  result := FALSE;
  for i := 0 to (XMLFile.ChildNodes[XMLDB_MAIN_CHILD].ChildNodes.Count-1) do
  begin
    if (XMLFile.ChildNodes[XMLDB_MAIN_CHILD].ChildNodes[i].ChildNodes['name'].Text = GrpName) then
    begin
      XMLFile.ChildNodes[XMLDB_MAIN_CHILD].ChildNodes.Delete(i);
      result := TRUE;
      Exit;
    end;
  end;
end;

Lieben Gruß, Real-TTX

[marabu]

Hallo,

dieses Beispiel zeigt dir, wie du einen XML-Knoten in einem Dokument per XPATH lokalisieren und seinen Level bestimmen kannst:

Delphi-Quellcode:

function FindNode(doc: IDOMDocument; const xpath: string;
    var node: IDOMNode): Boolean;
begin
  with doc.documentElement as IDOMNodeSelect do
    node := selectNode(xpath);
  Result := Assigned(node);
end;

function NodeLevel(node: IDOMNode): Integer;
begin
  Result := -1;
  while Assigned(node) do
  begin
    node := node.parentNode;
    Inc(Result);
  end;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  xpath: string;
  node: IDOMNode;
begin
  xpath := '//parent::node()[name = "Gruppe2"]';
  if FindNode(XMLDocument.DOMDocument, xpath, node)
  and Assigned(node.parentNode) then
  begin
    ShowMessage(Format('nodeLevel is %d', [NodeLevel(node)]));
    node.ParentNode.removeChild(node);
    Memo.Lines.Assign(XMLDocument.XML);
    Memo.Lines.Text := XMLDocument.DocumentElement.XML;
  end;
end;

Grüße vom marabu

[Sascha L]

Außerdem kann man nicht in einer normalen vorwärtszählenden For-Schleife die Elemente rauslöschen, die auch für die Länge der For-Schleife zuständig sind. Normalerweise müsste da entweder der Compiler meckern, oder es müsste zur Laufzeit krachen, weil sich das "ChildNodes.Count" ändert.

[marabu]

Moin Sascha,

ganz allgemein hast du Recht, wenn du auf ein Laufzeitproblem hinweist - der Compiler hat da allerdings keine Aktien.

Im vorliegenden Fall war alles in Ordnung, da die Schleife ja nach dem ersten Löschen sofort abgebrochen wurde.

Freundliche Grüße

[Real-TTX]

Danke Marabu für deine Antwort. Und ja, mir ist das bewusst. Da ich aber immer nach dem löschen den Vorgang beende... Sollte das in Ordnung sein. Obwohl ich viele kenne die sagen: "Man benutzt Exit für solche Sachen nicht etc.." Nur keiner kann mir genau sagen warum? Dann ist mir das auch egal :P

Gruß