本文整理自网络,侵删。
{新建一个TXT文档}Procedure NewTxt(FileName:String);Var F : Textfile; {定义 F 为 Textfile}Begin AssignFile(F,FileName); {将文件名与变量 F 关联} ReWrite(F); {创建Txt文档并命名为 “FileName ” } Closefile(F); {关闭文件 F}End;
相关阅读 >>
Delphi shellexecute执行cmd命令窗口不关闭
更多相关阅读请进入《Delphi》频道 >>