Создание xml документа

[gameover.cpp]

Всем доброго времени!

Нужно создать документ xml. Раньше из Delphi этого делать не доводилось. Почитав по форумам нашел несколько тем, которые меня сподвигли на такой код:

procedure TFGlav.Button1Click(Sender: TObject);
var
  XmlDoc: TXmlDocument;
  root: IXMLNode;
  child: IXMLNode;
  attrName, attrDesc: IXMLNode;
begin
  XmlDoc := TXmlDocument.Create(nil);
  XmlDoc.Active := true;
  XmlDoc.Version := '1.0';
  XmlDoc.Encoding := 'UTF-8';
  root := XmlDoc.AddChild('Computers');
  child := root.AddChild('Date');
  child := root.AddChild('Time');
  child := root.AddChild('Menu');
  attrName := XmlDoc.CreateNode('name', ntAttribute);
  attrName.Text := 'settings1';
  attrName := XmlDoc.CreateNode('name', ntAttribute);
  attrName.Text := 'settings2';
  attrName := XmlDoc.CreateNode('name', ntAttribute);
  attrName.Text := 'settings3';
  XmlDoc.SaveToFile('C:\primer.xml');
end;

В результате выполнения я получил:

<?xml version="1.0" encoding="UTF-8"?>
<Computers>
<Date/>
<Time/>
<Menu/>
</Computers>

А мне нужно такое содержание:

<?xml version="1.0" encoding="UTF-8"?>
<Computers>
  <Date> </Date>
  <Time>
    <Menu Name="Settings1" Name="Settings2" Name="Settings3"/>
  </Time>
</Computers>

Может кто-нибудь подсказать как реализовать?

[Arigato]

Сообщение от gameover.cpp

child := root.AddChild('Menu');

Ну так вы же хотите сделать Menu дочерним к Time, значит и применять метод надо к нему, то есть к объекту child.

[gameover.cpp]

Сообщение от Arigato

Ну так вы же хотите сделать Menu дочерним к Time, значит и применять метод надо к нему, то есть к объекту child.

Спасибо. Не разобрался в собственном коде состряпанном из примера с форума. Спасть пора было идти. У меня слово root в сознании зарезервировано). Забыл что в этом примере так просто переменную назвали, и никакого тайного смысла она в Delphi имеет.

childMenu := childTime.AddChild('Menu');

Добавил для себя более явные названия переменных для последующей удобочитаемости.

[hexor_boo]

2 gameover.cpp:
Добрый вечер!
Вы полностью решили свою задачу?
Я тоже сейчас воюю с XML (в Delphi - RAD Studio 10.4).
Весьма интересно, получилось ли у Вас сделать вот это:

<Menu Name="Settings1" Name="Settings2" Name="Settings3"/>

Т.е. создать три одинаковых по имени параметра и разных по значению (и если да, то как?!)

[Arigato]

Сообщение от hexor_boo

если да, то как?

Меня больше мучает вопрос, зачем?

[macomics]

Сообщение от Arigato

Меня больше мучает вопрос, зачем?

Ему нравится печатать имена объектов и обращаться к свойствам по именам. Судя по всему не одному мне кажется, что напечатанная программа намного длиннее того xml файла, который нужен на выходе. Не проще использовать Format.