Delphi 文件操作

定义 说明
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...]) 输出一行文本并换行

二、文件句柄

定义 说明
   

FileMode 常量

定义 说明
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;