文件写入(50分)

使用filecreate 函数创建了一个文本文件，对文件进行数据的写入操作时，出现异常，如何解决？
FileCreate(edit1.Text);
function tfcomm.dataondsik(str:string):boolean;
var datafile:textfile;
dataname:string;
begin
dataname:=edit1.Text;
//closefile(datafile);
assignfile(datafile,dataname);
if fileexists(dataname) then
begin
///FileOpen(dataname,fmOpenWrite);
append(datafile);///程序运行到这里总是出现异常
write(datafile,str);
result:=true ;
end
else
result:=false;
end;

什么异常？？

这个函数是没问题的，文本文件直接assignfile就可以了，
外面不需要createfile了

你用這個試下.
function tfcomm.dataondsik(str:string):boolean;
var datafile:textfile;
dataname:string;
begin
dataname:=edit1.Text;
if fileexists(dataname) then
begin
{$I-} /////////////////
assignfile(datafile,dataname);
append(datafile);
write(datafile,str);
closefile(datafile);
{$I+} //////////////////
result:=true ;
end
else
result:=false;
end;

多人接受答案了。