paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 23:51:35 +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('?>'); wrtStr('?>');
// TODO: now handled as a regular PI, remove this? // TODO: now handled as a regular PI, remove this?
if Length(TXMLDocument(node).StylesheetType) > 0 then if node is TXMLDocument then
begin begin
wrtStr(FLineBreak); if Length(TXMLDocument(node).StylesheetType) > 0 then
wrtStr('<?xml-stylesheet type="'); begin
wrtStr(TXMLDocument(node).StylesheetType); wrtStr(FLineBreak);
wrtStr('" href="'); wrtStr('<?xml-stylesheet type="');
wrtStr(TXMLDocument(node).StylesheetHRef); wrtStr(TXMLDocument(node).StylesheetType);
wrtStr('"?>'); wrtStr('" href="');
wrtStr(TXMLDocument(node).StylesheetHRef);
wrtStr('"?>');
end;
end; end;
child := node.FirstChild; child := node.FirstChild;