paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:01:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Defined seek constants

Browse Source
This commit is contained in:
michael 1999-05-15 07:25:22 +00:00
parent a2f4c7b5bc
commit 8c1b6ddaa1
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/objpas/filutilh.inc
View File

@ -29,6 +29,7 @@ Type
end; end;
Const Const
{ File attributes }
faReadOnly = $00000001; faReadOnly = $00000001;
faHidden = $00000002; faHidden = $00000002;
faSysFile = $00000004; faSysFile = $00000004;
@ -36,12 +37,17 @@ Const
faDirectory = $00000010; faDirectory = $00000010;
faArchive = $00000020; faArchive = $00000020;
faAnyFile = $0000003f; faAnyFile = $0000003f;
{ File open modes }
fmOpenRead = $0000; fmOpenRead = $0000;
fmOpenWrite = $0001; fmOpenWrite = $0001;
fmOpenReadWrite = $0002; fmOpenReadWrite = $0002;
{ File seek origins }
fsFromBeginning = 0;
fsFromCurrent = 1;
fsFromEnd = 2;
Function FileOpen (Const FileName : string; Mode : Integer) : Longint; Function FileOpen (Const FileName : string; Mode : Integer) : Longint;
Function FileCreate (Const FileName : String) : Longint; Function FileCreate (Const FileName : String) : Longint;
Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint; Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
@ -65,7 +71,10 @@ Function FileSearch (Const Name, DirList : String) : String;
{ {
$Log$ $Log$
Revision 1.4 1999-02-09 12:38:43 michael Revision 1.5 1999-05-15 07:25:22 michael
+ Defined seek constants
Revision 1.4 1999/02/09 12:38:43 michael
* Fixed INt() proble. Defined THandle, included Filemode constants * Fixed INt() proble. Defined THandle, included Filemode constants
Revision 1.3 1999/02/02 21:21:37 michael Revision 1.3 1999/02/02 21:21:37 michael