paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 07:09:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* TFileStream.Create did not raise exceptions if error occured.

Browse Source 
git-svn-id: trunk@4107 -
This commit is contained in:
yury 2006-07-06 19:00:40 +00:00
parent 4d24697e03
commit 53ef335edd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/streams.inc
View File

@ -420,7 +420,7 @@ begin
else
FHAndle:=FileOpen(AFileName,Mode);
If (FHandle=feInvalidHandle) then
If (THandle(FHandle)=feInvalidHandle) then
If Mode=fmcreate then
raise EFCreateError.createfmt(SFCreateError,[AFileName])
else
@ -437,7 +437,7 @@ begin
else
FHAndle:=FileOpen(AFileName,Mode);
If (FHandle=feInvalidHandle) then
If (THandle(FHandle)=feInvalidHandle) then
If Mode=fmcreate then
raise EFCreateError.createfmt(SFCreateError,[AFileName])
else