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

Question

Free Pascal/Delphi 有没有办法在临时分配给“真实文件”后将标准

Input

文件重置回控制台窗口？

     AssignFile(Input, 'stdin.txt');
     ...
     CloseFile(Input);
     // ??
     ReadLn(x); // I/O error

Answer 1

根据 Delphi 的文档：

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

当FileName参数为空时，AssignFile将F与标准输入或标准输出文件关联起来。如果指定空名称，则在调用 Reset (F) 后，F 指的是标准输入文件，而在调用 Rewrite (F) 后，F 指的是标准输出文件。