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;
|
||||
begin
|
||||
result := false;
|
||||
try
|
||||
ret.fs:=TFileStream.Create(name,fmOpenRead, fmShareDenyWrite);
|
||||
result:=true;
|
||||
|
Reference in New Issue
Block a user