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