OmniXML und Save methode mit ofIndent

[uligerhardt]

Vorneweg - ich bin kein XML-Experte.

Zitat von moelski:

Wo kommen die ganzen Leerzeilen weg ?! Ich blicks gerade nicht.

Zum Formatieren muss in die XML-Datei Whitespace (Zeilenumbrüche, Leerzeichen) eingefügt werden. Diesen interpretiert der Parser normalerweise als Textknoten. Um ihm das abzugewöhnen, setzt du PreserveWhiteSpace auf False:

Delphi-Quellcode:

procedure Test;
var
  xmlDoc: IXMLDocument;
  path: string;
begin
  path := ExtractFilePath(ParamStr(0)) + '\Lang.xml';
  xmlDoc := CreateXMLDoc;
  xmlDoc.PreserveWhiteSpace := False;
  xmlDoc.Load(path);
  xmlDoc.Save(path, ofIndent);
end;

HTH,
Uli.