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

Question

代码可以运行，提示i\o error 105,说是文件未打开，打开文件是用reset吧,我用了啊，为什么还是错误啊
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打开文本文件时只能以只读的方式打开，楼主可是写了内容呀write(f,'test2');
如果要重写文本文件用rewrite()，如果要在现有文件内容的基础上追加文本，用append();