paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: comment

Browse Source 
git-svn-id: trunk@48076 -
This commit is contained in:
mattias 2015-03-01 13:10:48 +00:00
parent 918aec7c95
commit faa8237679
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/lazutf8classes.pas
View File

@ -120,6 +120,16 @@ end;
constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word); constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word);
begin begin
Create(AFileName,Mode,438); Create(AFileName,Mode,438);
{ Rights 438 is the default in the FCL TFileStream
Under Unix:
438 = $1B6 =
6 = owner can read/write
B = group can read/write, set group id
1 = others can read
Note: the real rights are "Rights and not umask", so "set group id" is
usually not set.
Under Windows Rights is not used.
}
end; end;
constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word; Rights: Cardinal); constructor TFileStreamUTF8.Create(const AFileName: string; Mode: Word; Rights: Cardinal);