|
Saludos! estoy creando una aplicacion de un archivo xml en delphi, para visualizar el archivo xml utilizo un tree view, ya puedo insertar nodos perfectamente;pero mi problema es ke no se como insertar un atrributo al xml, lo que quiero hacer es que el usuario ;por medio de edits, escriba tanto el nombre como el valor del atributo, posteriormente seleccione en el treeview el nodo donde desee insertar el atributo y finalmente presione un boton para realizar dicha accion. realice un intento donde el ususario solamente proporcione el valor del atributo ,El codigo que puse en el boton es el siguiente:
procedure TfXml.Button5Click(Sender: TObject); var I : integer; begin // recorre los nodos del xml for I := 0 to XMLDocument1.DocumentElement.ChildNodes.Count - 1 do
if // verifica que el nodo sea igual al seleccionado en el tree view XMLDocument1.DocumentElement.ChildNodes.Nodes[I].ChildValues['titulo'] = tvCatalogo.Selected.Text then // crea el atributo XMLDocument1.DocumentElement.ChildNodes.Nodes[I].SetAttributeNS('ISBN','ISBN', edit1.text);
//hace un refrech al catalogo tvCatalogo.Items.Clear; DomToTree (XMLDocument1.DocumentElement, nil); tvCatalogo.FullExpand;
end; no aparecen errores al compilarlo pero correrlo y presionar el boton marca un error de xml , espero que me ayuden gracias.
|