1、          新建文本文件open_file ( : : FileName, FileType : FileHandle ) 创建 ( 'output' or 'append' )或者打开 ( input ) 文本文件

2、          写文本

fwrite_string ( : : FileHandle, String : )

例如 : fwrite_string (FileHandle, i + ' ' + Area)

3、          换行操作

fnew_line ( : : FileHandle : ) 换行

4、          关闭文本文件

close_file ( : : FileHandle : )

5、          读取文本文件

(1)     字符

fread_char ( : : FileHandle : Char )

(2)     行读取

fread_line ( : : FileHandle : OutLine, IsEOF )

  IsEOF 判断是否到了文本文件的末尾

(3)     字符串读取

fread_string ( : : FileHandle : OutString, IsEOF )

 

posted on 2017-07-27 22:28  qqhfeng16  阅读(3786)  评论(0编辑  收藏  举报