9
.
Pascal :
q ( text);
q ( file of );
q ( file).
( )
:
type filetype=text; { }
var ftmp,f: filetype; { }
var f1,lst: text; f2: file;
, , . , / , . , ( ).
, .
1. ( ).
2. assign ( "") . Delphi assign assignfile.
3. . . / . reset (), ( ) rewrite (). , .
, . . /. , . ( ) . .
4. . . : , , . . () () read readln, write writeln, . .
5. . close. , , .
|
|
Pascal , .
q assign(, ). , . . ( ). . . assign . , close. assign , assign . , assign close.
q reset() ( ) . File not found ( ). , reset
q ioresult - ( ). - . , . , , . File not found ( ). ioresult . Delphi fileexists.
q rewrite() () . .
rewrite . , , . , .
q close(). close, , . . () . ( ) .
q rename(, ) , . .
|
|
q erase() ,
rename erase . . , .
q eof() , (End Of File) . true, . , . false.
eof , . . , .
file01.txt, , . str.
var f: text; str: string;
begin
assign(f,'file01.txt'); rewrite(f);
writeln(f,' ');
close(f);
assign(f,'file01.txt'); reset(f);
readln(f, str);
close(f);
writeln(' / :'); writeln(str);
end.
, , char.
" ", : #13 (CR) (carridge return) #10 (LF) (line feed). eoln (End Of LiNe). eoln char. eoln.
, , eoln.
, , #26 (SUB) eof (End Of File).
, . , DOS Windows , Turbo Pascal DOS ( ). Delphi 32- "". MS Word ( ) | . DOS (*.txt) (*.txt).
text () :
type = text;
var : ;
var : text;
, , . , , . .
, .
. : reset rewrite. reset . rewrite . append .
|
|
q append(). . , , . assign. append . reset rewrite, append ,
append , eof tru. reset rewrite eof true, , false.
q :
read (, x1, x2,...,xN);
readln ();
readln (, x1, x2,...,xN);
x1, x2,...,xN , (integer, real, char, string), read , , . text.
readln , read, .
readln() ( , ). .
read readln , readln eoln , . read readln . readln rd . , . , readln.
q :
write (, y1, y2,...,yN);
writeln ();
writeln (, y1, y2,...,yN);
y1, y2,...,yN , (integer, real, char, string, boolean), , . . .
writeln , write, eoln.
, read (readln) write (writeln) . , , , read (readln). write (writeln) .
,
var f1: text; a,b,c: real;
readln(f1,a,b,c);
readln f1 , , a, b, c. , /. , . , , .
|
|
q :
eof, true, , . eoln(), true, (CR/LF), false. eof true, eoln true.
seekeoln() eoln, , . .
seekeof() eof, , . .
seekeof seekeoln , (. ).