![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Использую объект TXMLDocument, но ни как не могу добавить строку вида
<?F4FORM version="0.4"?>. То есть в ветке дерева в самом начале файла была такая строка со знаком вопроса при начале и конце секции. |
#2
|
||||
|
||||
![]() Это поди php-шное.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
![]() Нет. Просто нужно сформировать в Делфях xml файл, который содержит в себе теги со знаком вороса. Вот как их туда с помощью компонента TXMLDocument добавить, не понятно.
![]() |
#4
|
|||
|
|||
![]() Покопавшись в исходниках я нашел решение.
Код:
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; Может быть кому-нибудь пригодится. ![]() |