网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
pascal吧 关注：14,950贴子：132,342
  • 18回复贴，共1页

有个问题不解，望大神赐教。

最近在编一个游戏，需要从文件读入用户信息，在子程序里加了assign(input,'xxx.xx');之后，又写了close(input);本来是想读完文件中的内容后，再从键盘读入的，可是显示103错误（文件未打开），这是怎么回事，怎样解决？


@82111668_2012 @fp4869 @wfwhl12


2025-06-26 00:12:32
广告
Reset(input);


close(input); assign(input,'/dev/stdin'); reset(input)


你cd了没？


close(input);后，要想再从键盘输入时先写assign(input,'');reset(input);
program input_example;
var s:string;
begin
assign(input,'xxx.xx');reset(input);
readln(s);
writeln(s);
close(input);
assign(input,'');reset(input);
readln(s);
writeln(s);
end.


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 18回复贴，共1页
分享到: