pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fcl-xml compatility (fpc 2.6.1+)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2479 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2012-07-19 17:23:59 +00:00
parent 471d6294ec
commit 2075b60834
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/wst_fpc_xml.pas
View File

@ -93,7 +93,9 @@ end;
function CreateDoc() : TXMLDocument ; function CreateDoc() : TXMLDocument ;
begin begin
Result := TXMLDocument.Create(); Result := TXMLDocument.Create();
{$IF ((FPC_VERSION = 2) and (FPC_RELEASE = 6)) }
Result.Encoding := 'UTF-8'; Result.Encoding := 'UTF-8';
{$IFEND}
end; end;
function FindNode(ANode : TDOMNode;const ANodeName : string) : TDOMNode;{$IFDEF USE_INLINE}inline;{$ENDIF} function FindNode(ANode : TDOMNode;const ANodeName : string) : TDOMNode;{$IFDEF USE_INLINE}inline;{$ENDIF}