Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 03.07.2012, 11:39
mikas-2008 mikas-2008 вне форума
Прохожий
 
Регистрация: 01.12.2011
Сообщения: 10
Репутация: 10
Печаль Парсинг XML. Как добавить строку вида <?F4FORM version="0.4"?>

Использую объект TXMLDocument, но ни как не могу добавить строку вида
<?F4FORM version="0.4"?>. То есть в ветке дерева в самом начале файла была такая строка со знаком вопроса при начале и конце секции.
Ответить с цитированием
  #2  
Старый 03.07.2012, 13:28
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Это поди php-шное.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 03.07.2012, 13:32
mikas-2008 mikas-2008 вне форума
Прохожий
 
Регистрация: 01.12.2011
Сообщения: 10
Репутация: 10
По умолчанию

Нет. Просто нужно сформировать в Делфях xml файл, который содержит в себе теги со знаком вороса. Вот как их туда с помощью компонента TXMLDocument добавить, не понятно.
Ответить с цитированием
  #4  
Старый 03.07.2012, 18:02
mikas-2008 mikas-2008 вне форума
Прохожий
 
Регистрация: 01.12.2011
Сообщения: 10
Репутация: 10
По умолчанию Решение.

Покопавшись в исходниках я нашел решение.

Код:
procedure TForm1.SaveXMLDoc;
var
  XMLDoc: TXMLDocument;
  NBD, NSotr, NAnkData, NRekv, Instr: IXMLNode;
  PrologAttrs: string;
  NewPrologNode: IXMLNode;
begin
  XMLDoc := TXMLDocument.Create(Application);
  XMLDoc.Active := True;

  PrologAttrs := 'version="0.4"';
  NewPrologNode := XMLDoc.CreateNode('F4FORM', ntProcessingInstr, PrologAttrs);
  XMLDoc.ChildNodes.Insert(0, NewPrologNode);

  XMLDoc.Options:=XMLDoc.Options + [doNodeAutoIndent];
  XMLDoc.Version:='1.0';
  XMLDoc.Encoding:='windows-1251';

  XMLDoc.SaveToFile('ImportData.xml');
  XMLDoc.Free;
end;

Может быть кому-нибудь пригодится.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:39.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025