文件操作问题

Question

我写了下面的程序，为了向已存在的文本文件中追加文本，但每次运行的结果是追加的文本在，但是原来文本中的数据不见了，是怎么回事啊？？请指点！！！！程序如下：
var
  f1,f2:textfile;
  s:string;
  t:string;
begin
s:=getlocaltime ;
t:=LocalIP;／／函数值赋给s，t
assignfile(f1,＇1.text＇);
append(f1);
try
rewrite(f1);
writeln(f1,s);
writeln(f1,t);
finally
closefile(f1);
end;

Answer 1

Reset 打开一个存在的文件  
Rewrite 创建并打开一个新文件（或覆盖原有文件）/////////var
f1,f2:textfile;
t:string;
begin
t:='afs';
assignfile(f1,'c:\1.txt');
try
reset(f1);
append(f1);
writeln(f1,t);
finally
closefile(f1);
end;
end;