关于文件读写的问题，在线等待！

Question

type node=record
      a:integer;
      b:pchar;
     end;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var
  tmpnode:node;
  str:string;
  path:string;
  size:longint;
  f1:file of  node; 
begin
  path:='test.dat';
  tmpnode.a:=strtoint(edit1.text);
  str:=edit2.Text;
  tmpnode.b:=pchar(str);
  assignfile(f1,path);
  rewrite(f1);
  size:=filesize(f1);
  seek(f1,size);
  write(f1,tmpnode);
  closefile(f1);
end;为什么这段代码会把文件中以前的内容删除而重新写入当前数据（即tmpnode中的内容），而不是在文件尾追加当前数据。也就是如何在文件尾追加数据。

Answer 1

rewrite是重新建立一个新文件,所以内容被删除了.应该使用reset打开文件,使用append追加数据.