Delphi中的记录文件类型如何保存读取？

[dyfh]

TYPE
Temployee = record
name : string[10];
address : string[50];
end;
TemployeeFile = File Of Temployee;

var
EmployeeFile : TemployeeFile;

如何将多个记录以记录文件类型保存在文件中并依次读出？偶忘光了，手上也没资料了，哦了

[Alanwn]

NO.1

[zzh26]

下列代码用来向文件中追加一条记录：
var
PersonRec:TPersonRec;
DataFile:File of TPersonRec;
begin
AssignFile(DataFile, 'PersonS.dat');
// Open the file for read access.
Reset(DataFileF);
Seek(DataFile,FileSize(DataFile));
try
Write(DataFile,PersonRec);
finally
CloseFile(DataFile); // Close the file when finished.
end;
end;

[aiunong]

学习 UP

[zzh26]

function DelRecNo(FileName:string;RecNo:Integer):Boolean;
//删除第 RecNo条，第一条为 0
var
Svr:Temployee;
f:file of TTemployee;
n,i:integer;
begin
Result:=false;
if not(FileExists(FileName)) then exit;
AssignFile(f,FileName);
FileMode:=2;
reset(f);
n:=fileSize(f);
if (RecNo>=n) or (RecNo<0) then
begin
closeFile(f);
exit;
end;
for i:=n-1 downto RecNo+1 do
begin
seek(f,i);
Read(f,svr);
seek(f,i-1);
write(f,svr);
end;
seek(f,n-1);
Truncate(f);
closeFile(f);
Result:=true;
end;

[dyfh]

to zzh26(瞌睡)
FileSize(DataFile)取得文件尺寸，那么如何取得一个记录在文件中的大小，比如我需要在多个记录中记取第三或第四个记录的值，需要计算pos

[dyfh]

to zzh26(瞌睡)
下面这几句不太明白
n:=fileSize(f);
if (RecNo>=n) or (RecNo<0) then
begin
closeFile(f);
exit;
end;

在记录文件类型中使用filesize，得到的返回值就是记录的数量吗？

[zzh26]

FileSize(DataFile)取得的是记录数，你看看我上面的程序就知道了；
seek(f,1);
表示移动到第二条

[dyfh]

谢谢，我全明白了：）