Lazarua读写文件

program CopyOneByteFile;
var
mychar : char;
filein, fileout : text;
begin
assign (filein, 'c:\file1.txt');
reset (filein);
assign (fileout, 'c:\file2.txt');
rewrite (fileout);
read (filein, mychar);
write (fileout, mychar);
close(filein);
close(fileout)
end.

包含程序名，变量，一个是字符变量，两个文件变量（类型text，纯文本文件），assign读取文件，包含文件名和路径（单引号），reset (文件变量, '文件名')和rewrite (文件变量, '文件名')用于声明变量，使用磁盘上的文件与变量相关联，准备好读取或写入。reset操作文件，只能进行read、readln操作；rewrite操作文件，只能进行write、writeln操作。

Var UFile : Text;
Begin
Assign(UFile,'C:\PASCAL_Textfile.TXT');
Append(UFile);
Writeln(UFile,'append: hahahahaha, '+'oh my gooooooooooooood');
Close(UFile);
End.
Append(UFile);操作是在文件的尾部追加内容

Var UFile : Text; { or it could be of 'file' type}
Begin
Assign(UFile,'C:\\PASCAL_Textfile.txt');
Erase (UFile);
End.
Erase (UFile);操作是删除文件