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