* Set a default return value so that in case of a problem, Buffered_Open returns false

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1353 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Loesje_
2010-10-16 16:37:07 +00:00
parent 2bfd352b06
commit efe4017021

View File

@ -1165,6 +1165,7 @@ type
function BufferedFile_Open(name: PAnsiChar; out ret: TBufferedFile): Boolean;
begin
result := false;
try
ret.fs:=TFileStream.Create(name,fmOpenRead, fmShareDenyWrite);
result:=true;