Stylesheet in XML Datei einfügen

[marabu]

Hallo,

ich habe den Code von Andreas noch ein wenig verhübscht:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
const
  PI_DATA = 'href="layout.xsl" type="text/xsl"';
  PI_TARGET = 'xml-stylesheet';
begin
  with XMLDocument do
  begin
    XML.Text := '<?xml version="1.0"?><root/>';
    Active := True;
    ChildNodes.Insert(
      ChildNodes.IndexOf(DocumentElement),
      CreateNode(PI_TARGET, ntProcessingInstr, PI_DATA)
    );
    ShowMessage(XML.Text);
    Active := False;
  end;
end;

Freundliche Grüße