将输入重置回控制台窗口?

Reset Input back to console window?

提问人:Anton Duzenko 提问时间:11/4/2023 最后编辑:Shaun RoseltAnton Duzenko 更新时间:11/5/2023 访问量:69

问:

Free Pascal/Delphi 中有什么方法可以在将标准文件临时分配给“真实文件”后将其重置回控制台窗口?Input

     AssignFile(Input, 'stdin.txt');
     ...
     CloseFile(Input);
     // ??
     ReadLn(x); // I/O error
Delphi IO 控制台 Pascal

评论

2赞 dummzeuch 11/4/2023
您尝试过 Assignfile(Input, '') 吗?

答:

4赞 Remy Lebeau 11/5/2023 #1

根据 Delphi 的文档:

https://docwiki.embarcadero.com/Libraries/en/System.AssignFile

当 FileName 参数为空时,AssignFile 将 F 与标准输入或标准输出文件相关联。如果分配了空名称,则在调用 Reset (F) 后,F 将引用标准输入文件,在调用 Rewrite (F) 后,F 将引用标准输出文件。