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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
   |  
//---------------------------------------------------------------------------
void __fastcall TForm1::Ouvrir1Click(TObject *Sender)
{
   if (OpenDialog1->Execute())
   {
    CoInitialize (NULL);
    XMLDocument1->LoadFromFile(OpenDialog1->FileName);
   }
   else
   {
    MessageDlg("Problème pour l'ouverture des fichiers", mtWarning, TMsgDlgButtons() << mbOK, 0);
   }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Sauvegarder1Click(TObject *Sender)
{
   XMLDocument1->SaveToFile();
   CoUninitialize ();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
   AnsiString texte = "Banzai";
   XMLDocument1->DocumentElement = XMLDocument1->CreateElement("fichier","");
   _di_IXMLNode composants = XMLDocument1->DocumentElement->AddChild("composants");
   for(int i=0; i<12; i++)
   {
   _di_IXMLNode composant = composants->AddChild("composant");
   composant->SetAttribute("num", i);
   _di_IXMLNode nom         = composant->AddChild("nom");
   nom->SetNodeValue(texte);
   _di_IXMLNode valeur      = composant->AddChild("valeur");
   _di_IXMLNode reference   = composant->AddChild("reference");
   _di_IXMLNode fabricant   = composant->AddChild("fabricant");
   _di_IXMLNode designation = composant->AddChild("designation");
   }
 
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
_di_IXMLNode Noeud=XMLDocument1->DocumentElement->ChildNodes->GetNode(0);
_di_IXMLNode SNoeud=Noeud->ChildNodes->GetNode(0);
_di_IXMLNode Name=SNoeud->ChildNodes->GetNode(0);
Memo1->Text = (AnsiString)Name->GetNodeName() + Name->GetNodeValue();
 
}
//--------------------------------------------------------------------------- | 
Partager