1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| void __fastcall TSDIAppForm::Button1Click(TObject *Sender)
{
_di_IXMLNode node_elt;
_di_IXMLNode node_selt;
_di_IXMLNode node_chd;
XMLDoc->Active = true;
XMLDoc->DocumentElement = XMLDoc -> CreateElement("Root","");
node_elt = XMLDoc->DocumentElement->AddChild("Element",-1);
node_elt->SetAttributeNS("index","","1");
node_chd = node_elt->AddChild("Reponse",-1);
node_chd->Text = "Réponse de l'élément 1";
node_chd = node_elt->AddChild("Element");
node_chd->SetAttributeNS("index","","a");
node_selt = node_chd->AddChild("Reponse",-1);
node_selt->Text = "Reponse sous element a de element 1";
node_elt = XMLDoc->DocumentElement->AddChild("Element",-1);
node_elt->SetAttributeNS("index","","2");
node_chd = node_elt->AddChild("Reponse",-1);
node_chd->Text = "Réponse de l'élément 2";
XMLDoc->SaveToFile("monfichier.xml");
} |
Partager