Как добавить encoding в XML в Delphi?

Question

[freeeeez]

Добавляю кодировку в XML документ, но она игнорируется:

LDocument :=  NewXMLDocument;
LDocument.Active := True;
LDocument.Version := '1.0';
LDocument.Encoding := 'WINDOWS-1251';
…
LDocument.SaveToFile(ExtractFilePath(Application.ExeName)+'Reports\'+ xmlname +'.xml');

Создает:
<?xml version="1.0"?>Версию проставляет в атрибут а кодировку игнорит. Как решить?

Comments

[Hemul GM]

Что это за класс-то?

[freeeeez]

TXMLdocument

Answer 1

[Hemul GM]

LDocument.Encoding := 'WINDOWS-1251';
Потому что эта строка меняет только текст в заголовке xml, поле. (док)

Comments

[freeeeez]

А, вот как... А как тогда получить в итоговом документе: <?xml version="1.0" encoding="WINDOWS-1251" ?>

[Hemul GM]

freeeeez, тут и поменяет. Только кодировка файла остается по факту utf-8

[freeeeez]

Hemul GM, нет, не меняет, XML-файл создается <?xml version="1.0"?>.... так. Кодировка файла мне без разницы, мне надо чтобы был аттрибут encoding="WINDOWS-1251"

[Hemul GM]

freeeeez, всё меняет

[Hemul GM]

freeeeez,

[freeeeez]

реально, работает, если пустой файл создать...
у меня похоже что то дальше по коду перезаписывает <?xml тег и убирает кодировку, буду разбираться спасибо

[freeeeez]

Hemul GM, вот этот код если убрать то encoding подставляется в <?xml:
LDocument.XML.Text := XMLDoc.FormatXMLData(LDocument.XML.Text);//форматирование отступов и переносов
LDocument.Active := True;

Но без него весь XML идет одной сплошной строкой....