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

* Removed unnessesary var-keyword in declaration of ReadXMLFile (Fixes compilation)

Browse Source 
git-svn-id: trunk@11788 -
This commit is contained in:
joost 2008-09-15 08:17:35 +00:00
parent 16225a3653
commit c4789a5ae4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,8 +43,8 @@ type
procedure ReadXMLFile(out ADoc: TXMLDocument; const AFilename: String); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: Text); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream; const ABaseURI: String); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream); overload;
procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream; const ABaseURI: String); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String); overload;
procedure ReadXMLFragment(AParentNode: TDOMNode; var f: Text); overload;
@ -3242,7 +3242,7 @@ begin
end;
end;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream; const ABaseURI: String);
procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream; const ABaseURI: String);
var
Reader: TXMLReader;
Src: TXMLCharSource;
@ -3259,7 +3259,7 @@ begin
end;
end;
procedure ReadXMLFile(out ADoc: TXMLDocument; var f: TStream);
procedure ReadXMLFile(out ADoc: TXMLDocument; f: TStream);
begin
ReadXMLFile(ADoc, f, 'stream:');
end;