请大家帮看下，写文件出错在哪里？

Question

var f:textfile;
begin
assignfile(f,'my_file.txt');
rewrite(f);
writeln(f,edit1.text);
closefile(f);
edit1.Text:='';
edit1.SetFocus;
end;
将edit1中的数据添加到文件c:\my_file中，但运行后，点击按钮后，打开文件，里面没添加的内容。请叫下各位问题出在哪了？

Answer 1

assignfile(f, 'my_file.txt '); 没有采用绝对路径,my_file.txt则出现在程序的同级目录里.
放在"文件c:\my_file中"的话,用绝对路径'c:\my_file.txt'就好了.var f:textfile; 
begin 
assignfile(f, 'c:\my_file.txt'); 
rewrite(f); 
writeln(f,edit1.text); 
closefile(f); 
edit1.clear; 
edit1.SetFocus; 
end; 

Answer 2

var f:textfile; 
begin 
assignfile(f, 'c:\my_file.txt ');
rewrite(f);
writeln(f,edit1.text);
closefile(f);
edit1.Text:= ' ';
edit1.SetFocus;
end;