You've already forked lazarus-ccr
* 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:
@ -1165,6 +1165,7 @@ type
|
|||||||
|
|
||||||
function BufferedFile_Open(name: PAnsiChar; out ret: TBufferedFile): Boolean;
|
function BufferedFile_Open(name: PAnsiChar; out ret: TBufferedFile): Boolean;
|
||||||
begin
|
begin
|
||||||
|
result := false;
|
||||||
try
|
try
|
||||||
ret.fs:=TFileStream.Create(name,fmOpenRead, fmShareDenyWrite);
|
ret.fs:=TFileStream.Create(name,fmOpenRead, fmShareDenyWrite);
|
||||||
result:=true;
|
result:=true;
|
||||||
|
Reference in New Issue
Block a user