Delphi 11中IOResult异常：IOResult为0却触发错误提示

核心问题出在多次调用IOResult函数导致错误状态被重置。Delphi的IOResult函数在调用时会清除内部的I/O错误状态：你的代码先在if判断里调用IOResult，如果此时结果为非0进入else分支，再次调用IOResult时得到的已经是重置后的0值，这就出现了看似矛盾的错误提示。

修正后的代码 #

procedure WriteStrToNamedOPFile(var NamedOPFile: TextFile; TextString: string);
var
  IOErr: Integer;
begin
{$I-}
  append(NamedOPFile);
{$I+}
  IOErr := IOResult; // 仅调用一次，保存初始I/O错误状态
  if IOErr = 0 then
  begin
    System.writeln(NamedOPFile, TextString); // 移除多余的TextFile强制转换
    closefile(NamedOPFile);
  end
  else
    ShowMessage('LOG File write access error: IOResult = ' + IntToStr(IOErr));
end;

额外注意事项 #

• 多线程竞争问题：如果程序是多线程架构，多个线程同时操作同一个日志文件会引发I/O错误，需要给文件操作逻辑添加互斥锁（如TCriticalSection）来保证线程安全。
• 外部文件锁定：日志文件若被其他进程（如记事本、杀毒软件）打开锁定，会导致append操作失败，这类情况需确保文件仅被你的程序独占访问。
• 磁盘异常场景：磁盘空间不足、缓存延迟等也可能触发I/O错误，但这类情况的错误码不会是0，只会导致初始的append操作失败。

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