IXMLDocument.SaveToFile() używa znaku tab dla wcięcia zamiast spacji

Question

Mam plik XML, który jest oryginalnie sformatowany za pomocą wcięć spacji (2 spacje dla każdego elementu zagnieżdżonego).

Po załadowaniu i zapisaniu tego pliku przy użyciu dokumentu IXML, wcięcia spacji zmieniają się na znaki tabulacji (kod # 9).

Oto kod:

var 
    FileName: String; 
    Document: IXMLDocument; 
... 
Document := XMLDoc.LoadXMLDocument(FileName); 
Document.SaveToFile(FileName); 

Próbowałem użyć NodeIndentStr nieruchomości - bez rezultatu:

Document := XMLDoc.LoadXMLDocument(FileName); 
Document.NodeIndentStr := ' '; 
Document.SaveToFile(FileName); 

Używane FormatXMLData też - bez rezultatu:

Document := XMLDoc.LoadXMLDocument(FileName); 
Document.XML.Text := XMLDoc.FormatXMLData(Document.XML.Text); 
Document.Active := True; 
Document.SaveToFile(FileName); 

Jak mogę zapisywać z wcięciami spacji zamiast tabulatorów?

Answer 1

Istnieje opcja w IXMLDocument, gdzie parser może zostać poinformowany o zachowaniu białych znaków.

Używaj go tak:

Document.ParseOptions := 
    Document.ParseOptions+[poValidateOnParse]+[poPreserveWhiteSpace]; 

Oświadczenie: Nie próbowałem go.

Answer 2

Nie jestem pewien, co jest różne, ale Document.ParseOptions + [poValidateOnParse, poPreserveWhiteSpace]; nie był dla mnie dostępny.

Coś podobnego pracował:

var 
    xmlDoc: IXMLDOMDocument2; 

xmlDoc := CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument2; 
xmlDoc.validateOnParse := True; 
xmlDoc.preserveWhiteSpace := True;