回 帖 发 新 帖 刷新版面

主题:请教关于文件的一个写操作(就是搞不定)

[size=3]var a:text;
    c:char;
begin
c:='h';
assign(a,'d:/11.txt');
rewrite(a);
write(a,c);
end.[/size]
[size=6][size=5]以上就是我的程序代码,按理说应该在d;/11.txt中写入一个字符h呀,可是d:/11.txt还是空的,为什么呀[/size][/size]

回复列表 (共4个回复)

沙发

要清空缓冲区
程序最后加上
close(a);

板凳

谢谢你了,我成功了

3 楼

更节约空间的:
var c:char;
begin
  c:='h';
  assign(output,'d:/11.txt');
  rewrite(output);
  writeln(c);
  close(output);
end.

4 楼

最节约的:
begin
  assign(output,'d:/11.txt');
  rewrite(output);
  writeln('h');
  close(output);
end.

我来回复

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