Virtual Pascal中Reset()失败致WriteLn()失效问题求助

在Windows系统使用Virtual Pascal时，对不存在的文件执行Reset()操作后，CRT的WriteLn()会出现异常失效：启用{$I+}时触发运行时错误，启用{$I-}则无任何输出。以下是复现示例：

示例1（引用Printer单元） #

{$I+}
program TestIt;

uses Printer; { 尝试打开LPT1作为Lst，但系统中不存在LPT1设备 }

begin
  { 启用{$I+}时触发运行时错误，启用{$I-}时无输出 }
  writeln('Test It');
end.

示例2（直接操作不存在的文件） #

program TestIt;

var
  SomeFile : text;
begin
{$I-} 
  Assign(SomeFile, 'a:\filepath_not_exist');
  { 不启用{$I-}时，Reset会如预期触发运行时错误 }
  Reset(SomeFile);
{$I+}
  { 启用{$I+}时触发运行时错误，启用{$I-}时无输出 }
  writeln('Test It');
end.

示例3（正常运行对比） #

{$I+}
program TestIt;

begin
  writeln('Test It');
end.

问题原因 #

Virtual Pascal的文本I/O依赖全局错误状态标志：当Reset()执行失败时，会设置这个全局错误标志，且不会自动清除。后续调用WriteLn()（默认输出到Output文本文件对象）时，会先检查全局I/O错误状态，一旦发现错误未处理，就会触发运行时错误（{$I+}模式）或静默跳过输出（{$I-}模式）。本质上，文件打开失败的错误状态被延续到了屏幕输出的I/O操作中。

解决方法 #

1. 主动清除I/O错误状态：在失败的Reset()操作后调用IOResult()函数，该函数会返回当前I/O错误码，同时重置全局错误状态，确保后续I/O操作不受影响。修改示例2如下：

program TestIt;

var
  SomeFile : text;
  ErrCode: Integer;
begin
{$I-} 
  Assign(SomeFile, 'a:\filepath_not_exist');
  Reset(SomeFile);
  ErrCode := IOResult(); // 清除全局错误状态，避免影响后续输出
{$I+}
  writeln('Test It');
end.

2. 处理Printer单元初始化错误：如果是引用Printer单元导致的问题，可在单元引用后立即调用IOResult()清除初始化时的错误状态：

{$I+}
program TestIt;

uses Printer;

var
  ErrCode: Integer;
begin
  ErrCode := IOResult(); // 清除Printer单元打开LPT1失败的错误状态
  writeln('Test It');
end.

源码获取 #

Virtual Pascal的标准库源码（包括WriteLn()、Assign()等文本I/O相关实现）通常随安装包提供，可在安装目录的Sources或Lib子文件夹中找到对应单元文件，比如SysUtils.pas、Crt.pas、Printer.pas等，这些文件包含了相关函数的具体实现逻辑。

内容的提问来源于stack exchange，提问作者user3161924