16,748
社区成员
发帖
与我相关
我的任务
分享
procedure tform1.NewTxt(filename:string);
begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(Input, FileName);
ReWrite(Input);
Writeln( '将您要写入的文本写入到一个 .txt 文件');
Closefile(Input); {关闭文件}
end;