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