paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 10:28:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@19812 -
This commit is contained in:
sergei 2011-12-11 04:15:26 +00:00
parent 6b43ce2e13
commit 54ea6a9be1
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-xml/src/sax_html.pp
View File

@ -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;

8
packages/fcl-xml/src/sax_xml.pp
View File

@ -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;