请大家帮看下，写文件出错在哪里？
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中，但运行后，点击按钮后，打开文件，里面没添加的内容。请叫下各位问题出在哪了？

[解决办法]
assignfile(f, 'my_file.txt '); 没有采用绝对路径,my_file.txt则出现在程序的同级目录里.
放在"文件c:\my_file中"的话,用绝对路径'c:\my_file.txt'就好了.

Delphi(Pascal) code

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