打开二进制文件的问题……在写的时候需要怎样才能不覆盖以前的内容？请教高手！在线等！

Question

var
 TRecFile:file of TRecKind;
begin
 if Not FileExists('webcfg.dat') then
  begin
   Assignfile(TRecfile,'webcfg.dat');
   rewrite(TRecfile);
  end
  else
  begin
   Assignfile(TRecfile,'webcfg.dat');
   Reset(TRecfile);
  end;
   Write(TRecfile,rec);  //Rec:TRecKind;  已经有值了
   closefile(TRecfile);
 end;我想要的是每次执行这段程序的时候都把rec写到webcfg.dat文件中去，但是不覆盖以前webcfg.dat的rec型内容而是添加到以前的记录的尾部，使得webcfg.dat文件具有多个TRecKind型记录，可是每次执行这段程序的时候都是覆盖了上次的记录，就是说每次操作都使得webcfg.dat文件只有一个TRecKind型记录，我想要的不是这样啊，高手教我～～～在线等！！马上给分！！

Answer 1

seek()定位seek(0)可定位到文件头
seek(FileSize(TRecfile))可定位到文件尾，然后再写注：FileSize()对File of Byte得到的是字节数，对File of TType（类型文件）得到的是记录数，对textFile得到的好象是1024字节的整数倍

Answer 2

assignfile(...)...
reset(...)
append(...)
closefile(...)

Answer 3

借地方一用用write写文件是覆盖，有没有插入的函数？