XML File formatiert speichern...

[eldevino]

Hi...

Gibt es eine Möglichkeit, XML-Dateien, die mit MSXML 4.0 und Delphi erstellt wurden, formatiert zu speichern?

Derzeit habe ich folgendes "Layout", wenn ich die XML-Datei speichere:

XML-Code:

<?xml version="1.0" encoding="ISO-8859-1"?>
<root>   <data><aaa>XML</aaa><bbb>formatieren</bbb><ccc>4.0</ccc></data><data><aaa>Delphi</aaa><bbb>Praxis</bbb><ccc>1.0</ccc></data></root>

Ich hätte allerdings gerne eine Formatierung (Einrückung und Zeilenumbrüche), wie folgt dargestellt...

XML-Code:

<?xml version="1.0" encoding="ISO-8859-1"?>
<root>
   <data>
      <aaa>XML</aaa>
      <bbb>formatieren</bbb>
      <ccc>4.0</ccc>
   </data>
   <data>
      <aaa>Delphi</aaa>
      <bbb>Praxis</bbb>
      <ccc>1.0</ccc>
   </data>
</root>

Danke schonmal für Eure Antworten...
eldevino

[ringli]

Geht mit
XMLnode.AppendChild(XMLdoc.CreateTextNode(#13#10#09#09)); Die Anzahl der Tabs (#09) musst du dir selbst anpassen...

[MathiasSimmack]

Funktion draus machen, der man die Anzahl der Tabs übergeben kann.

[xaromz]

Hallo,

geht ganz einfach:

Delphi-Quellcode:

var
  XMLDocument: TXMLDocument;
begin
  XMLDocument := TXMLDocument.Create(Application);

  XMLDocument.Options := XMLDocument.Options + [doNodeAutoIndent];
...

Gruß
xaromz

[MathiasSimmack]

Du hast überlesen, dass es um MS-XML 4 geht. Und da gibt´s das nicht.

[xaromz]

Ups, sorry.

[eldevino]

Danke Euch allen schonmal...
Werde es mal die nächsten Minuten versuchen umzusetzen.



eldevino