, , . , , . , . , , .
15 . . . .
() , , .
.
. , , , .
- . ( ) , - ( ).
. . . , :
'LAB1.DAT'
'c:\ABC150\pr.txt'
'my_files'
;
;
.
. :
file of - ( );
text - ;
file - .
:
var
f1: file of char;
f2: file of integer;
f3: file;
t: text;
Assign(f, FileName)
f , FileName. , , .
( ). .
Reset(f)
, f. Reset . , .
f - , reset .
|
|
Rewrite(f)
, f. . , .
Close(f)
f. Close . - Close , - , .
EOF(f): boolean
TRUE, . , .
Rename(f, NewName)
, f. .
Erase(f)
, f. Erase .
IOResult
, - . 0. IOResult - , . IOResult - {$I-}.