paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

laz2_xmlwrite: added flags for WriteXML

Browse Source 
git-svn-id: trunk@35373 -
This commit is contained in:
mattias 2012-02-15 14:16:40 +00:00
parent a4211c814f
commit 0bd7bee51b
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazutils/laz2_xmlwrite.pas
View File

@ -40,9 +40,9 @@ procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String; Flags: TXMLWr
procedure WriteXMLFile(doc: TXMLDocument; var AFile: Text; Flags: TXMLWriterFlags = []); overload;
procedure WriteXMLFile(doc: TXMLDocument; AStream: TStream; Flags: TXMLWriterFlags = []); overload;
procedure WriteXML(Element: TDOMNode; const AFileName: String); overload;
procedure WriteXML(Element: TDOMNode; var AFile: Text); overload;
procedure WriteXML(Element: TDOMNode; AStream: TStream); overload;
procedure WriteXML(Element: TDOMNode; const AFileName: String; Flags: TXMLWriterFlags = []); overload;
procedure WriteXML(Element: TDOMNode; var AFile: Text; Flags: TXMLWriterFlags = []); overload;
procedure WriteXML(Element: TDOMNode; AStream: TStream; Flags: TXMLWriterFlags = []); overload;
// ===================================================================
@ -902,19 +902,19 @@ begin
end;
end;
procedure WriteXML(Element: TDOMNode; const AFileName: String);
procedure WriteXML(Element: TDOMNode; const AFileName: String; Flags: TXMLWriterFlags = []);
begin
WriteXMLFile(TXMLDocument(Element), AFileName);
WriteXMLFile(TXMLDocument(Element), AFileName, Flags);
end;
procedure WriteXML(Element: TDOMNode; var AFile: Text);
procedure WriteXML(Element: TDOMNode; var AFile: Text; Flags: TXMLWriterFlags = []);
begin
WriteXMLFile(TXMLDocument(Element), AFile);
WriteXMLFile(TXMLDocument(Element), AFile, Flags);
end;
procedure WriteXML(Element: TDOMNode; AStream: TStream);
procedure WriteXML(Element: TDOMNode; AStream: TStream; Flags: TXMLWriterFlags = []);
begin
WriteXMLFile(TXMLDocument(Element), AStream);
WriteXMLFile(TXMLDocument(Element), AStream, Flags);
end;