Delph XML

Delphi XML Lernen
procedure TForm1.Button1Click(Sender: TObject);
var
root : IXMLNode;
elem : IXMLNode;
begin
root := XMLDocument1.CreateElement('Firma','L');

elem := XMLDocument1.CreateElement('Mitarbeiter','H');

// elem.SetAttributeNS('name','H','OLAF');
elem.Text := 'Hallo';
root.AddChild(elem.Text);

XMLDocument1.DocumentElement.AddChild(root.Text);

{ XMLDocument1.FileName := 'C:\H.xml';
MsgNode.Text := 'Hallo';
XMLDocument1.AddChild(MsgNode.Text); }
XMLDocument1.SaveToFile('C:\H.xml');
end
procedure TForm1.Button1Click(Sender: TObject);
var
root : IXMLNode;
elem : IXMLNode;
begin

root := XMLDocument1.CreateElement('Firma','L');

elem := XMLDocument1.CreateElement('Mitarbeiter','H');

elem.Text := 'Hallo';

root.AddChild(elem.Text);

XMLDocument1.DocumentElement.AddChild(root.Text);

{ XMLDocument1.FileName := 'C:\H.xml';

MsgNode.Text := 'Hallo';

XMLDocument1.AddChild(MsgNode.Text); }

XMLDocument1.SaveToFile('C:\H.xml');

end

--------------------------------------------------------------------------------