Как в TXMLdocument в Delphi сделать перевод строки?

Question

[freeeeez]

Следующий код:

LDocument := TXMLDocument.Create(nil);
      LDocument.Active := True;
      LDocument.Version := '1.0';
      LDocument.Encoding := 'windows-1251';

      LDocument.DocumentElement := LDocument.CreateNode('Файл', ntElement, '');
      LDocument.DocumentElement.Attributes['ИдФайл'] := xmlname;
      NodeSvUchDocObor := LDocument.DocumentElement.AddChild('СвУчДокОбор', -1);
      NodeSvUchDocObor.Attributes['ИдФайл'] := xmlname;

Создает следующий файл:

<?xml version="1.0" encoding="windows-1251"?>
<Файл ИдФайл="ON_NSCHFDOPPR_1_2_20221231_1BAFD6E5-9CFF-4C74-82A0-3864F3AFF475"><СвУчДокОбор ИдФайл="ON_NSCHFDOPPR_1_2_20221231_1BAFD6E5-9CFF-4C74-82A0-3864F3AFF475"/><Документ/></Файл>

Как сделать чтобы новые ноды были с новой строки и соблюдалась табуляция?

Answer 1

[zed]

Попробуйте так:

LDocument.XML.Text := XmlDoc.FormatXMLData(LDocument.XML.Text);
LDocument.Active := True;
LDocument.SaveToFile(...);

https://docwiki.embarcadero.com/Libraries/Sydney/e...

Comments

[freeeeez]

Похоже на правду, но выдает ошибку:
raised exception class EXMLDocError with message 'No active document'

Код:

LDocument.Active := True;
LDocument.Version := '1.0';
LDocument.Encoding := 'windows-1251';

LDocument.DocumentElement := LDocument.CreateNode('Файл', ntElement, '');
LDocument.DocumentElement.Attributes['ИдФайл'] := xmlname;
NodeSvUchDocObor := LDocument.DocumentElement.AddChild('СвУчДокОбор', -1);
NodeSvUchDocObor.Attributes['ИдФайл'] := xmlname;
NodeDocument := LDocument.DocumentElement.AddChild('Документ', -1);
LDocument.XML.Text := XMLDoc.FormatXMLData(LDocument.XML.Text);
LDocument.SaveToFile(ExtractFilePath(Application.ExeName)+'Reports\'+ xmlname +'.xml');

[zed]

А если так?

LDocument.XML.Text := XMLDoc.FormatXMLData(LDocument.XML.Text);
LDocument.Active := True;
LDocument.SaveToFile(ExtractFilePath(Application.ExeName)+'Reports\'+ xmlname +'.xml');

[freeeeez]

zed, Спасибо большое!