Создать XML файл?

[McLion]

Всем привет,

что-то я сегодня конкретно торможу, толи мало поспал, то ли въехать не могу. Вот тут короче пример как создать XML файл:

Код: Выделить всё

    Doc := TXMLDocument.Create;

    RootNode := Doc.CreateElement('register');
    Doc.Appendchild(RootNode);
    // Create a parent node
    RootNode:= Doc.DocumentElement;
    parentNode := Doc.CreateElement('usuario');
    RootNode.Appendchild(parentNode);

    // Create a child node
    parentNode := Doc.CreateElement('nome');
    nofilho := Doc.CreateTextNode('Fernando');
    parentNode.Appendchild(nofilho);
    RootNode.ChildNodes.Item[0].AppendChild(parentNode);

    // Create a child node
    parentNode := Doc.CreateElement('idade');
    nofilho := Doc.CreateTextNode('32');
    parentNode.Appendchild(nofilho);
    RootNode.ChildNodes.Item[0].AppendChild(parentNode);

    writeXMLFile(Doc, 'test.xml'); 


На выходе получается вот это:

Код: Выделить всё

<register>
  <usuario>
    <nome>Fernando</nome>
    <idade>32</idade>
  <usuario>
</register>


Как мне убрать элемент <usuario>, что бы в конце вышло вот так:

Код: Выделить всё

<register>
  <nome>Fernando</nome>
  <idade>32</idade>
</register>


Благодарен за идеи.

[Seenkao]

Не уместно наверно ... но разве сейчас нельзя создать XML-файл в текстовом редакторе?
...это так, вопрос.

[Jargar]

Наверное так.

Код: Выделить всё

Doc := TXMLDocument.Create;

    // Create a root node
    RootNode := Doc.CreateElement('register');
    Doc.Appendchild(RootNode);                           // save root node

    // Create a parent node
    RootNode:= Doc.DocumentElement;

    // Create a child node
    parentNode := Doc.CreateElement('nome');                // create a child node
    nofilho := Doc.CreateTextNode('Fernando');         // insert a value to node
    parentNode.Appendchild(nofilho);                         // save node
    RootNode.AppendChild(parentNode);       // insert child node in respective parent node

    // Create a child node
    parentNode := Doc.CreateElement('idade');               // create a child node
    nofilho := Doc.CreateTextNode('32');               // insert a value to node
    parentNode.Appendchild(nofilho);                         // save node
    RootNode.AppendChild(parentNode);       // insert a childnode in respective parent node

    writeXMLFile(Doc, 'test.xml');       

[McLion]

@Jargar точно, большое спасибо!