Basic Pascal Tutorial/Chapter 2/Files/zh CN

From Lazarus wiki
Revision as of 15:53, 5 December 2013 by Swen (talk | contribs)
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

български (bg) Deutsch (de) 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.
上一页 目录 下一页