IXMLDocument.SaveToFile() sử dụng ký tự tab cho thụt đầu dòng thay vì dấu cách

Question

Tôi có tệp XML, được định dạng ban đầu bằng cách sử dụng dấu cách không gian (2 dấu cách cho mỗi mục lồng nhau).

Khi tôi tải và lưu tệp này bằng cách sử dụng IXMLDocument, khoảng trống không gian đang thay đổi thành các ký tự tab (mã số 9).

Đây là mã:

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

Tôi cố gắng để sử dụng NodeIndentStr tài sản - không có kết quả:

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

Dùng FormatXMLData quá - không có kết quả:

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

Làm thế nào tôi có thể tiết kiệm với không gian thụt lề thay vì ký tự tab?

Answer 1

Có một tùy chọn trong IXMLDocument nơi trình phân tích cú pháp có thể được thông báo để giữ khoảng trắng.

Sử dụng nó như thế này:

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

Disclaimer: Tôi đã không thử nó.

Answer 2

Tôi không chắc chắn điều gì khác biệt nhưng Tài liệu.ParseOptions + [poValidateOnParse, poPreserveWhiteSpace]; không thể truy cập được đối với tôi.

Something tương tự làm việc:

var 
    xmlDoc: IXMLDOMDocument2; 

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