paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Graeme Geldenhuys to check for XMLDocument before typecasting it

Browse Source 
git-svn-id: trunk@16443 -
This commit is contained in:
michael 2010-11-26 12:44:23 +00:00
parent 3650944d9e
commit a8e4234aca
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/fcl-xml/src/xmlwrite.pp
View File

@ -681,14 +681,17 @@ begin
wrtStr('?>');
// TODO: now handled as a regular PI, remove this?
if Length(TXMLDocument(node).StylesheetType) > 0 then
if node is TXMLDocument then
begin
wrtStr(FLineBreak);
wrtStr('<?xml-stylesheet type="');
wrtStr(TXMLDocument(node).StylesheetType);
wrtStr('" href="');
wrtStr(TXMLDocument(node).StylesheetHRef);
wrtStr('"?>');
if Length(TXMLDocument(node).StylesheetType) > 0 then
begin
wrtStr(FLineBreak);
wrtStr('<?xml-stylesheet type="');
wrtStr(TXMLDocument(node).StylesheetType);
wrtStr('" href="');
wrtStr(TXMLDocument(node).StylesheetHRef);
wrtStr('"?>');
end;
end;
child := node.FirstChild;