Estructure XML
lazarus / 8-Other

----------------------------------------------------------------------
sir-hack · 2007-01-18 00:19

Hi people

please helpme  in code for create file xml with estrcuture:

Code: [Select]
<?xml version="1.0" encoding="utf-8"?>
<Tabla>
  <Titulo>Lazarus</Titulo>
  <Icono>/home/sir-hack/icono/001.png</Icono>
  <Comando>Lazarus</Comando>
</Tabla>


This it is my code:

Code: [Select]
var
  Doc_Xml:TXMLDocument;
  Nod_Xml:TDOMNode;
  Ele_Xml,Chi_Xml: TDOMElement;
....
....
 Doc_Xml:=TXMLDocument.Create;
 Nod_Xml:=Doc_Xml.DocumentElement;
 Ele_Xml := Doc_Xml.CreateElement('Tabla');
 Chi_Xml:= Doc_Xml.CreateElement('Titulo');
 Chi_Xml.SetAttribute('Titulo','Lazarus');
 Ele_Xml.AppendChild(Chi_Xml);
 Chi_Xml:= Doc_Xml.CreateElement('Icono');
 Chi_Xml.SetAttribute('Icono','/home/sir-hack/icono/001.png');
 Ele_Xml.AppendChild(Chi_Xml);
 Chi_Xml:= Doc_Xml.CreateElement('Comando');
 Chi_Xml.SetAttribute('Comando','Lazarus');
 Ele_Xml.AppendChild(Chi_Xml);
 Doc_Xml.AppendChild(Ele_Xml);
 WriteXMLFile(Doc_Xml, GetEnv('HOME')+'/test.xml');


the answer to that code is:

Code: [Select]
<?xml version="1.0"?>
<Tabla>
  <Titulo Titulo="Lazarus"/>
  <Icono Icono="/home/sir-hack/icono/001.png"/>
  <Comando Comando="Lazarus"/>
</Tabla>

----------------------------------------------------------------------
sir-hack · 2007-01-18 05:41

good single I want to give finished this post, because it already
solves my problem and here I leave my solution for which they have he
himself problem that I

Code: [Select]
Doc_Xml:=TXMLDocument.Create;
Nod_Xml:=Doc_Xml.DocumentElement;
Nod_Xml:=Doc_Xml.CreateElement('Tabla');
Doc_Xml.AppendChild(Nod_Xml);
Ele_Xml := Doc_Xml.CreateElement('Titulo');
Nod_Xml.AppendChild(Ele_Xml);
Nod_Xml:=Ele_Xml ;
Ele_Xml := Doc_Xml.CreateTextNode('Lazarus');
Nod_Xml.AppendChild(Ele_Xml);
Nod_Xml:=Doc_Xml.DocumentElement;
Ele_Xml := Doc_Xml.CreateElement('Icono');
Nod_Xml.AppendChild(Ele_Xml);
Nod_Xml:=Ele_Xml ;
Ele_Xml := Doc_Xml.CreateTextNode('/home/sir-hack/icono/001.png');
Nod_Xml.AppendChild(Ele_Xml);
Nod_Xml:=Doc_Xml.DocumentElement;
Ele_Xml := Doc_Xml.CreateElement('Comando');
Nod_Xml.AppendChild(Ele_Xml);
Nod_Xml:=Ele_Xml ;
Ele_Xml := Doc_Xml.CreateTextNode('Lazarus');
Nod_Xml.AppendChild(Ele_Xml);
WriteXMLFile(Doc_Xml, GetEnv('HOME')+'/test.xml');