请各位给我看一下,程序中哪里错误了，很郁闷

Question

要写入txt的话，要先打开文件，打开文件是reset吧,我用了为什么不行啊，我看到相关的一点资料也说要用reset,我已经用了啊，请帮忙看看哪里出了问题，谢谢^_^
procedure TForm1.Button12Click(Sender: TObject);
var
f:textfile;
s:string;
sourcefile:string;
begin
sourcefile:='c:\asdf.txt';
if FileExists(sourcefile)=true then
begin
showmessage('asdf');
assignfile(f,sourcefile);
reset(f);
write(f,'test2');
//readln(f,s);
//form1.Edit1.Text:=s;
closefile(f);
end
//else if not fileexists('c:\asdf.txt') then
//assignfile(f,'c:\asdf.txt');
//rewrite(f);
//writeln(f,'test1');
//closefile(f);
end;

Answer 1

reset(f);
write(f,'test2');改成
rewrite(f);
write(f,'test2');

Answer 2

如果txt里面有内容就用append（f）

Answer 3

这个试过啊,运行倒是不报错，但是没有把test2写入txt啊

Answer 4

晕，怎么可能呢，reset是只读的打开文件，你要write当然错。
如果想追加数据到txt就用append打开，如果想重新写txt就用rewrite打开。
不会有错的。

Answer 5

比如里面原来格式是这样的:
test1
我现在要写入test2,格式就变成这样:
test1
test2
怎么实现啊