XML "String Wurst" formatieren

[himitsu]

hätte auch noch via himXML sowas bieten können ... via Standardeinstellung sieht es ja so aus diese Formatierungen werden beim Auslesen ignoriert

Delphi-Quellcode:

xml: TXMLFile;

xml := TXMLFile.Create;
xml.LoadFromFile(...);
xml.SaveToFile(...);
xml.Free;

aber hierzu

Delphi-Quellcode:

xml.Text := AnsiReplaceText(xml.Text,'<',#13#10 + '<');
xml.Text := AnsiReplaceText(xml.Text,#13#10 + '</','</');
xml.Text := AnsiReplaceText(xml.Text,'></','>' + #13#10 + '</');

die Zeile 1 entspricht der Zeile 2, also werden bei </ 2 Leerzeilen davor eingefügt

und die dritte Zeile macht nie was, da Zeile 1&2 ebenfalls diesem Muster entsprechen, demnach schon Umbrüche eingefügt sind und es keine ></ mehr gibt.