回 帖 发 新 帖 刷新版面

主题:关于writeln的问题

var
filename:Textfile;
s:string;
begin
s:='i love china';
assignfile(filename,'c:\a.txt');
rewrite(filename);
writeln(filename,s);
执行后在c盘生成了a.txt文件,但是没有写入内容,查了下delphi的帮助,看了下好像没错误,请高手指教。。谢谢

回复列表 (共1个回复)

沙发

在最后面添加:
closefile(filename)   就OK了!!
打开的文件要记得关闭,这样才有保存记录!!!

我来回复

您尚未登录,请登录后再回复。点此登录或注册