Okay danke nochmal.
Ich habs
Delphi-Quellcode:
procedure TForm1.AddLine;
var Node : IXMLNode;
Line :
String;
const PI_DATA = '
href="layout.xsl" type="text/xsl"';
PI_TARGET = '
xml-stylesheet';
begin
//add XSL Layout
Line := '
xml-stylesheet href="Layout.xsl" type="text/xsl"';
try
begin
Node :=
XML.CreateNode(PI_Target, ntProcessingInstr, PI_DATA);
ShowMessage('
fertig');
XML.ChildNodes.Add(Node);
XML.SaveToFile(TempPath+Form2.Datei);
ShowMessage('
klappt');
end;
except
ShowMessage('
Datei kann nicht angezeigt werden');
end;
end;
Kann mir auhc jemand erklären warum so?
lg
LordPsychoter