VPF::Работа с XML? - Форум программистов

WaReZMEN

Дата 22.5.2010, 07:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Вот код

Код


  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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 7.9.2006

Репутация: нет
Всего: 4

Код


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

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

Цитата(WaReZMEN)

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

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

--------------------

Не знаешь кого спросить? - Спроси google!

WaReZMEN

Дата 22.5.2010, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

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

WaReZMEN

Дата 23.5.2010, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »