本博客介绍了一个简单的程序流程，通过调用Delphi的文件操作函数，实现创建新文本文件并写入特定数据的过程。代码示例清晰展示了如何使用Delphi进行基本的文件读写操作。
procedure TForm1.Button1Click(Sender: TObject);
var
txtf:textfile;
batf:string;
data:string;
begin
batf:='new.txt';
data:='abcdeftt';
if fileexists(batf) then deletefile(batf); //如果存在，则删除
assignfile(txtf,batf); //打开
rewrite(txtf); //新建
writeln(txtf,data); //写入数据
closefile(txtf); //关闭文件
end;
笔记
扫一扫
917
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
