OmniXMLPersistent: Added XML processing instruction.

mremec · Jul 25, 2022 · 71cb4af · 71cb4af
1 parent fb6cfc3
commit 71cb4af
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/OmniXMLPersistent.pas b/OmniXMLPersistent.pas
@@ -111,6 +111,7 @@ procedure CreateDocument(var XMLDoc: IXMLDocument; var Root: IXMLElement;
   RootNodeName: XmlString);
 begin
   XMLDoc := CreateXMLDoc;
+  XMLDoc.AppendChild(XMLDoc.CreateProcessingInstruction('xml', 'version="1.0" encoding="utf-8"'));
   Root := XMLDoc.CreateElement(RootNodeName);
   XMLDoc.DocumentElement := Root;
 end;