Browse Source

* Changed 'var' parameters to 'out' in order to avoid warnings (Mantis #22136)

git-svn-id: trunk@21452 -
sergei 13 years ago
parent
commit
e41a365f59
2 changed files with 8 additions and 8 deletions
  1. 4 4
      packages/fcl-xml/src/sax_html.pp
  2. 4 4
      packages/fcl-xml/src/sax_xml.pp

+ 4 - 4
packages/fcl-xml/src/sax_html.pp

@@ -108,8 +108,8 @@ type
 
 // Helper functions; these ones are HTML equivalents of ReadXML[File|Fragment]
 
-procedure ReadHTMLFile(var ADoc: THTMLDocument; const AFilename: String);
-procedure ReadHTMLFile(var ADoc: THTMLDocument; f: TStream);
+procedure ReadHTMLFile(out ADoc: THTMLDocument; const AFilename: String);
+procedure ReadHTMLFile(out ADoc: THTMLDocument; f: TStream);
 
 procedure ReadHTMLFragment(AParentNode: TDOMNode; const AFilename: String);
 procedure ReadHTMLFragment(AParentNode: TDOMNode; f: TStream);
@@ -696,7 +696,7 @@ begin
 end;
 
 
-procedure ReadHTMLFile(var ADoc: THTMLDocument; const AFilename: String);
+procedure ReadHTMLFile(out ADoc: THTMLDocument; const AFilename: String);
 var
   f: TStream;
 begin
@@ -709,7 +709,7 @@ begin
   end;
 end;
 
-procedure ReadHTMLFile(var ADoc: THTMLDocument; f: TStream);
+procedure ReadHTMLFile(out ADoc: THTMLDocument; f: TStream);
 var
   Reader: THTMLReader;
   Converter: THTMLToDOMConverter;

+ 4 - 4
packages/fcl-xml/src/sax_xml.pp

@@ -94,8 +94,8 @@ type
 
 // Helper functions; these ones are XML equivalents of ReadXML[File|Fragment]
 
-procedure ReadXMLFile(var ADoc: TXMLDocument; const AFilename: String);
-procedure ReadXMLFile(var ADoc: TXMLDocument; f: TStream);
+procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);
+procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream);
 
 procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String);
 procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream);
@@ -550,7 +550,7 @@ begin
 end;
 
 
-procedure ReadXMLFile(var ADoc: TXMLDocument; const AFilename: String);
+procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String);
 var
   f: TStream;
 begin
@@ -563,7 +563,7 @@ begin
   end;
 end;
 
-procedure ReadXMLFile(var ADoc: TXMLDocument; f: TStream);
+procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream);
 var
   Reader: TSAXXMLReader;
   Converter: TXMLToDOMConverter;