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的帮助,看了下好像没错误,请高手指教。。谢谢
否则,数据丢失.因为,AssignFile操作文件时,是在缓存中操作的,并未真正写入到文件中去.