paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

xml reader: fixed compilation

Browse Source 
git-svn-id: trunk@25371 -
This commit is contained in:
mattias 2010-05-13 15:56:32 +00:00
parent 8011e7b757
commit 65ea6e89fd
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/laz2_xmlwrite.pas
View File

@ -27,7 +27,7 @@ unit laz2_XMLWrite;
interface
uses Classes, laz2_DOM;
uses Classes, laz2_DOM, SysUtils, laz2_xmlutils;
procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String); overload;
procedure WriteXMLFile(doc: TXMLDocument; var AFile: Text); overload;
@ -42,8 +42,6 @@ procedure WriteXML(Element: TDOMNode; AStream: TStream); overload;
implementation
uses SysUtils, xmlutils;
type
TXMLWriter = class;
TSpecialCharCallback = procedure(Sender: TXMLWriter; const s: DOMString;