Files/zh CN

From Lazarus wiki
Jump to: navigation, search

English (en) français (fr) 日本語 (ja) 中文(中国大陆)‎ (zh_CN)

2D - 文件操作 (原作者: Tao Yue, 状态: 未更改)

读取文件,但不是从控制台(键盘)中读取数据,可以这样:

read (文件变量, 参数列表);
write (文件变量, 参数列表);

同样用 readlnwriteln。文件变量声明如下:

var
  ...
  filein, fileout : text;

text 数据类型指定该文件仅是纯文本形式。

操作文件时,需要先声明变量,以读取或者写入数据;我们需要将磁盘上的文件与变量相关联,可以使用以下2种方式之一,通常:

reset (文件变量, '文件名');
rewrite (文件变量, '文件名');

reset 将对打开的文件进行读取或重写。 使用reset操作文件,只能进行readreadln操作。 使用rewrite操作文件,只能进行writerewrite操作。

Turbo Pascal 使用引入赋值。首先将文件名赋值给一变量,之后调用resetrewrite

assign (文件变量, '文件名');
reset (文件变量);

操作系统不同,路径表达方法也不一。Windows使用反斜杠(如 c:\directory\name.pas),而MacOS、Linux使用斜杠。

操作完成后,你需要关闭它:

close (文件标识符);

下面是一个操作文件的示例,程序运行在DOS下,将读取file1.txt内容,写入到file2.txt中。

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.
上一页 目录 下一页