记录的再写 入(50分)

我是一个delphi的初学者，我建立一个记录型文件，
在第一次初始化文件时是用 rewrite(f,s) ,
请问关闭文件后想再向文件中加入记录怎么做？
而不覆盖原来的记录。

可以利用下列代码来向文件中追加一条记录:
var
PersonRec :TPersonRec; //这是你自己定义的记录结构
DataFile: File of TpersonRec; //你的记录型文件
begin
AssignFile(DataFile, 'PersonFile.dat');
Reset(DataFile);
Seek(DataFile, FileSize(DataFile)); //将文件指针的位置放到末尾
try
write(DataFile, PersonRec); //写入一条记录
finally
CloseFile(DataFile);
end;
end;

接受答案