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

* Avoid code duplication in TFileStream.Create

Browse Source 
git-svn-id: trunk@19628 -
This commit is contained in:
michael 2011-11-11 17:32:17 +00:00
parent ab7a60a68c
commit 9fc66414b5
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -535,17 +535,7 @@ end;
constructor TFileStream.Create(const AFileName: string; Mode: Word);
begin
FFileName:=AFileName;
If (Mode and fmCreate) > 0 then
FHandle:=FileCreate(AFileName,Mode,438)
else
FHAndle:=FileOpen(AFileName,Mode);
If (THandle(FHandle)=feInvalidHandle) then
If Mode=fmcreate then
raise EFCreateError.createfmt(SFCreateError,[AFileName])
else
raise EFOpenError.Createfmt(SFOpenError,[AFilename]);
Create(AFileName,Mode,438);
end;