- removed 'var' parameter, it isn't necessary and prevents passing TStream descendants (Mantis #20867).

git-svn-id: trunk@19812 -

packages/fcl-xml/src/sax_html.pp

@@ -108,10 +108,10 @@ 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; var f: TStream);
+procedure ReadHTMLFile(var ADoc: THTMLDocument; f: TStream);
 
 procedure ReadHTMLFragment(AParentNode: TDOMNode; const AFilename: String);
-procedure ReadHTMLFragment(AParentNode: TDOMNode; var f: TStream);
+procedure ReadHTMLFragment(AParentNode: TDOMNode; f: TStream);
 
 
 
@@ -706,7 +706,7 @@ begin
   end;
 end;
 
-procedure ReadHTMLFile(var ADoc: THTMLDocument; var f: TStream);
+procedure ReadHTMLFile(var ADoc: THTMLDocument; f: TStream);
 var
   Reader: THTMLReader;
   Converter: THTMLToDOMConverter;
@@ -737,7 +737,7 @@ begin
   end;
 end;
 
-procedure ReadHTMLFragment(AParentNode: TDOMNode; var f: TStream);
+procedure ReadHTMLFragment(AParentNode: TDOMNode; f: TStream);
 var
   Reader: THTMLReader;
   Converter: THTMLToDOMConverter;

packages/fcl-xml/src/sax_xml.pp

@@ -95,10 +95,10 @@ 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; var f: TStream);
+procedure ReadXMLFile(var ADoc: TXMLDocument; f: TStream);
 
 procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String);
-procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream);
+procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream);
 
 
 
@@ -563,7 +563,7 @@ begin
   end;
 end;
 
-procedure ReadXMLFile(var ADoc: TXMLDocument; var f: TStream);
+procedure ReadXMLFile(var ADoc: TXMLDocument; f: TStream);
 var
   Reader: TSAXXMLReader;
   Converter: TXMLToDOMConverter;
@@ -594,7 +594,7 @@ begin
   end;
 end;
 
-procedure ReadXMLFragment(AParentNode: TDOMNode; var f: TStream);
+procedure ReadXMLFragment(AParentNode: TDOMNode; f: TStream);
 var
   Reader: TSAXXMLReader;
   Converter: TXMLToDOMConverter;