先定义一个与文件相关的记录:
例如:
type
TPerson=Record
Id:string[10];
Name:string[8];
Sex:string[2];
end;
var
afile:Tfile;
prn:Tperson;
begin
assignfile(..);
blockread(..,sizeof(prn)/一次读一个记录行。,..);
写的时候也要对应写。
例如:
type
TPerson=Record
Id:string[10];
Name:string[8];
Sex:string[2];
end;
var
afile:Tfile;
prn:Tperson;
begin
assignfile(..);
blockread(..,sizeof(prn)/一次读一个记录行。,..);
写的时候也要对应写。
Buf:Char直接用Read(F,Buf)的方式读取字节缺点:有一种字符串是用两个Byte放一个Char的,好象是UniString;遇到不同类型的字符串时会出错。