freepascal.ru

Код: Выделить всё

var F1, F2: text; 
begin 
  Assign(F1, 'c:\autoexec.bat'); 
  Assign(F2, 'c:\autoexec.bat'); 
  Reset(F1);  Reset(F2); 
  Writeln('OK!'); 
  Readln; 
end.

Код: Выделить всё

Procedure FileOpenFunc(var t:TextRec);
var
  Flags : Longint;
Begin
  Case t.mode Of
    fmInput : Flags:=$10000;
    fmOutput : Flags:=$11001;
    fmAppend : Flags:=$10101;
  else
   begin
     InOutRes:=102;
     exit;
   end;
  End;
  Do_Open(t,PChar(@t.Name),Flags);
  ...
End;

Код: Выделить всё

$ echo "test line" > /tmp/test
$ chmod -w /tmp/test
$ ls -o /tmp/test
-r--r--r-- 1 user 10 янв.  22 12:38 /tmp/test
$ echo "test line 2" > /tmp/test
bash: /tmp/test: Отказано в доступе

Код: Выделить всё

var
  t: text; s: string;
begin
  assign(t, '/tmp/test'); reset(t);
  readln(t, s); writeln(s);
  close(t);
end.

Код: Выделить всё

$ ./testf
test line

Код: Выделить всё

var
  t1, t2: text;
begin
  assign(t1, '/tmp/test'); assign(t2, '/tmp/test');
  reset(t1); reset(t2);
  writeln('Ok!');
  close(t2); close(t1);
end.

Код: Выделить всё

$ ./test2f
Ok!

Код: Выделить всё

procedure do_open(var f; p: pchar; flags: longint);
{
  filerec and textrec have both handle and mode as the first items so
  they could use the same routine for opening/creating.
  when (flags and $100)   the file will be append
  when (flags and $1000)  the file will be truncate/rewritten
  when (flags and $10000) there is no check for close (needed for textfiles)
}
Const
  file_Share_Read   = $00000001;
  file_Share_Write  = $00000002;
  file_Share_Delete = $00000004;
Var
  shflags, oflags, cd: longint;
  security: TSecurityAttributes;
begin
...
  { convert filesharing }
  shflags:=0;
  if ((filemode and fmshareExclusive) = fmshareExclusive) then
    { no sharing }
  else
    if (filemode = fmShareCompat) or ((filemode and fmshareDenyWrite) = fmshareDenyWrite) then
      shflags := file_Share_Read
  else
    if ((filemode and fmshareDenyRead) = fmshareDenyRead) then
      shflags := file_Share_Write
  else
    if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
      shflags :=
{$ifdef WINCE}
        { WinCE does not know file_share_delete }
        file_Share_Read or file_Share_Write;
{$else WINCE}
        fmShareDenyNoneFlags;
{$endif WINCE}
...
  filerec(f).handle:=CreateFile(p,oflags,shflags,@security,cd,FILE_ATTRIBUTE_NORMAL,0);
...
end;

Код: Выделить всё

const
  fmOpenRead       = $0000;
  fmOpenWrite      = $0001;
  fmOpenReadWrite  = $0002;

  fmShareCompat    = $0000;
  fmShareExclusive = $0010;
  fmShareDenyWrite = $0020;
  fmShareDenyRead  = $0030;
  fmShareDenyNone  = $0040;

Код: Выделить всё

if (filemode = fmShareCompat) or ((filemode and fmshareDenyWrite) = fmshareDenyWrite) then
      shflags := file_Share_Read

Код: Выделить всё

if ((filemode and $f0) = fmShareCompat) or ((filemode and fmshareDenyWrite) = fmshareDenyWrite) then
      shflags := file_Share_Read

Код: Выделить всё

> notepad testcp.txt
Это текст в кодировке cp1251.
> type testcp.txt
▌Єю ЄхъёЄ т ъюфшЁютъх cp1251.
> chcp
Текущая кодовая страница: 866
> chcp 1251
> type testcp.txt
Это текст в кодировке cp1251.