XML-Nodes mit mehreren Eigenschaften

[smudo]

Hallo,

ich erstelle mir folgende XML-Struktur um ein JvMemoryData darzustellen

Delphi-Quellcode:

  XML := TXMLDocument.Create(Application);
  try
    XML.Active:=True;
    XML.AddChild('JvMemoryData');
    XML.StandAlone := 'yes';
    XML.Version    := '1.0';
    Table:=XML.DocumentElement.AddChild('Table');

    MDS.Open;
    for I := 0 to MDS.FieldCount - 1 do
    begin
      Field := Table.AddChild('Field');           //IXMLNode
      Field.Text:=MDS.Fields[I].DisplayName;
    end;
    ...
  finally
    XML.Destroy;
  end;

Field.Text reicht mir aber nicht aus. Ich würde gern folgende Ausgabe erreichen wollen:

XML-Code:

<Table>
  <Field Name="Titel" Size="255" DataType="ftString" Blob="False" Required="False"/>
</Table>

Mit jvSimpleXML hab ichs über Properties.Add erreichen können. Wie geht das aber mit dem XMLDoc?

Vielen Dank im Voraus

René

[marabu]

Hallo René,

jeder IXMLNode hat eine Methode SetAttribute() - damit geht das.

Grüße vom marabu

[smudo]

Na wer sagts denn, ist ja ganz einfach.
Danke an den marabu