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