VPF::Комментарий в XML - Форум программистов

v258

Дата 16.10.2010, 19:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Создаю XML-файл примерно вот так

Код


  XMLDocument1 := TXMLDocument.Create(Self);
  XMLDocument1.Active := true;
  XMLDocument1.Encoding := 'Windows-1251';
  XMLDocument1.Options := XMLDocument1.Options + [doNodeAutoIndent];
  XMLDocument1.AddChild('root').AddChild('test');
  XMLDocument1.SaveToFile('d:\test1.xml');
  XMLDocument1.Active := false;
  XMLDocument1.Free;

Получается файл такого вида

Код


<?xml version="1.0" encoding="Windows-1251"?>
<root>
  <test/>
</root>

А хотелось бы получить файл такого вида

Код


<?xml version="1.0" encoding="Windows-1251"?>
<!-- Комментарий -->
<root>
  <test/>
</root>

С добавлением комментария в любую ноду разобрался, а как можно добавить комментарий сразу после объявления?

Это сообщение отредактировал(а) v258 - 16.10.2010, 20:02

Matematik

Дата 17.10.2010, 10:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

NativeXML вроде так умеет.

cat512

Дата 17.10.2010, 13:28 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 7
Всего: 15

Код


var
  Xml: IXmlDomDocument;
  E: IXmlDomNode;
begin
 xml := createDomDocument;
  E := Xml.createComment('ggg');
  Xml.appendChild(E);
  E:=Xml.createElement('root');
  Xml.appendChild(E);
  Xml.save('f1.xml');
end;

По аналогии TXmlDocument, должен также создавать коменты

v258

Дата 17.10.2010, 17:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Да, получилось, спасибо

Код


  XMLDocument1 := TXMLDocument.Create(Self);
  XMLDocument1.Active := true;
  XMLDocument1.Encoding := 'Windows-1251';
  XMLDocument1.Options := XMLDocument1.Options + [doNodeAutoIndent];
  nd := XMLDocument1.CreateNode('Комментарий',ntComment);
  XMLDocument1.ChildNodes.Add(nd);
  XMLDocument1.AddChild('root').AddChild('test');
  XMLDocument1.SaveToFile('d:\test1.xml');
  XMLDocument1.Active := false;
  XMLDocument1.Free;

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