Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с XML?

Автор: WaReZMEN 22.5.2010, 07:59

Вот код

Код


  Xml := NewXMLDocument;
  Xml.Options := Xml.Options + [doNodeAutoIndent];
  Xml.Active := True;
  Xml.Encoding := 'UTF-8';
  Xml.StandAlone := 'yes';

  Root := Xml.AddChild('root');
  ListNode := Root.AddChild('list');
  ItemNode := ListNode.AddChild('item');

   with ItemNode.AddChild('company') do
   Text := 'Копыта';

            
  Xml.SaveToFile('C:\1.xml');

получается такой вот файл

Код


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<root>
  <list>
    <item>
      <company></company>
      <company_name>Копыта</company_name>     
    </item>
  </list>
</root>

а мне нужно

Код


<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<root>
  <list>
    <item>
      <company_name>Копыта</company_name>     
    </item>
  </list>
</root>

Вот я и не пойму как избавится от лишней строки <company></company>

Автор: cyberstream 22.5.2010, 09:52

Код


  Root := Xml.AddChild('root');
  ListNode := Root.AddChild('list');
  ItemNode := ListNode.AddChild('item');
   with ItemNode.AddChild('company_name') do
   Text := 'Копыта';

Delphi 7, всё работает, нужный результат выдаёт.

Цитата(WaReZMEN)

как избавится

Может, проект пересобрать? smile

Автор: WaReZMEN 22.5.2010, 16:30

Delphi 10 Lite
все равно не лишняя строка есть.

Автор: WaReZMEN 23.5.2010, 07:56

Все разобрался сам туплю smile