Andryshok
посмотри решение
Код: uses
msxml;
procedure TForm1.btn1Click(Sender: TObject);
var
Str : String;
CoDocXML, CoDocXSL : CoDomDocument ;
XMLDoc, XSLDoc : DomDocument ;
Begin
XMLDoc:=coDocXML.Create;
XSLDoc:=coDocXSL.Create;
try
XMLDoc.Load('index.xml');
XSLDoc.Load('1.xsl');
Str := XMLDoc.transformNode(XSLDoc);
ShowMessage(str);
finally
XSLDoc := nil;
XMLDoc := nil;
end; // try/finally
end;
посмотри решение
Код: uses
msxml;
procedure TForm1.btn1Click(Sender: TObject);
var
Str : String;
CoDocXML, CoDocXSL : CoDomDocument ;
XMLDoc, XSLDoc : DomDocument ;
Begin
XMLDoc:=coDocXML.Create;
XSLDoc:=coDocXSL.Create;
try
XMLDoc.Load('index.xml');
XSLDoc.Load('1.xsl');
Str := XMLDoc.transformNode(XSLDoc);
ShowMessage(str);
finally
XSLDoc := nil;
XMLDoc := nil;
end; // try/finally
end;