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.