定义 | 说明 |
---|---|
AssignFile(file,FileName) | 初始化文件变量,同时指定文件名 |
Erase(F) | 删除关联的文件(先关闭文件) |
Rewrite(file ,[recSize]) | 建立输出文件,如果存在先删除 |
Append(file) | 向现有文件追加 |
var file:file;
定义 | 说明 |
---|---|
FileMode : Word | 文件打开模式 |
Reset(file [,recSize]) | 用 FileMode 指定的方式打开文件 |
Eof(file) | 检测文件结束 |
CloseFile(file) | 关闭文件 |
Read(file, Var1 [,Var2...]) | 读数据到变量 |
Write(file, V1 [,V2...]) | 写数据到文件 |
var file:textfile;
定义 | 说明 |
---|---|
AssignPrn(TextFile) | 使文件内容同时输出到打印机 |
Eoln(TextFile) | 是否位于行尾 |
Flush(TextFile) | |
Read([TextFile,] Var1 [,Var2...]) | 读数据到变量 |
Readln([TextFile,] Var1 [,Var2...]) | 读入一行文本 |
SeekEof([TextFile]):Boolean | 检测是否到文件尾部只包含空白字符 |
SeekEoln([TextFile]):Boolean | 检测是否到行尾只包含空白字符 |
Write([TextFILE,] P1 [,P2...]) | 输出文本 |
Writeln([TextFILE,] P1 [,P2...]) | 输出一行文本并换行 |
定义 | 说明 |
---|---|
定义 | 说明 |
---|---|
fmOpenRead = $0000; | 只读 |
fmOpenWrite = $0001; | 只写 |
fmOpenReadWrite = $0002; | 读写 |
fmShareCompat = $0000; | |
fmShareExclusive = $0010; | |
fmShareDenyWrite = $0020; | |
fmShareDenyRead = $0030; | |
fmShareDenyNone = $0040; |
写文本文件 |
var s : string; f : textfile; begin filemode := fmOpenWrite ; AssignFile(f,'E:\1.txt'); ReWrite(f); s := '123'; write(f,s); closefile(f); end; |
读文本文件 | var s : string; f : textfile; begin filemode := fmOpenRead ; AssignFile(f,'E:\1.txt'); reset(f); read(f,s); showmessage(s); closefile(f); end; |
写记录文件 |
var f : file of integer; i : integer; begin filemode := fmOpenWrite ; AssignFile(f,'E:\1.txt'); ReWrite(f); i := 97; write(f,i ); closefile(f) end; |
读记录文件 |
var f : file of integer; i : integer; begin filemode := fmOpenRead ; AssignFile(f,'E:\1.txt'); Reset(f); read(f,i ); closefile(f) end; |