您所在位置：主题：给位帮我看看 问题 谢谢了 我不知道哪错了
克里斯
[专家分：0] 发布于 2006-09-21 11:49:00
Procedure TForm1.NewTxt(FileName:String) ;
Var
F:Textfile;
begin
if fileExists(FileName) then
DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(F, FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建一个新的文件并命名为 ek.txt}
Writeln(F, Edit1.text);
Closefile(F); {关闭文件 F}
end;
这个过程我也声明了
但是就是抱错
Var
F:Textfile;
begin
if fileExists(FileName) then
DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(F, FileName); {将文件名与变量 F 关联}
ReWrite(F); {创建一个新的文件并命名为 ek.txt}
Writeln(F, Edit1.text);
Closefile(F); {关闭文件 F}
end;
这个过程我也声明了
但是就是抱错
