Delphi XE7 IDE中运行程序无法生成日志，独立运行正常

问题场景 #

在Delphi XE7集成开发环境（IDE）中运行程序时，使用以下代码生成日志文件，经F8调试确认路径正确，但无日志文件输出；直接运行编译生成的可执行文件（EXE）时，日志文件能正常生成。

日志生成代码 #

procedure LogProgram(const aEvent: String);
var
  TheLogFileName, TheLogLine: String;
  TheLogFile: TextFile;
  TheDay, TheMonth, TheYear, TheHour, TheMinute, TheSecond,
    TheMilliSecond: Word;
begin
  TheLogFileName := Format('%s%d.log', [usPATH_LOGS, Trunc(Now)]);
  AssignFile(TheLogFile, TheLogFileName);
  if not FileExists(TheLogFileName) then
    Rewrite(TheLogFile);
  Append(TheLogFile);
  DecodeDateTime(Now, TheYear, TheMonth, TheDay, TheHour, TheMinute, TheSecond,
    TheMilliSecond);
  TheLogLine := Format('%d-%d-%d: %d:%d:%d:%d%s%s', [TheYear, TheMonth, TheDay,
    TheHour, TheMinute, TheSecond, TheMilliSecond, #9, aEvent]);
  Writeln(TheLogFile, TheLogLine);
  CloseFile(TheLogFile);
end;

已排查项 #

• Windows安全中心文件夹保护未启用
• 使用基于可执行文件路径的相对路径
• 未修改Delphi的「Run->Parameters」设置

问题原因及解决方法 #

1. 代码逻辑错误（核心原因） #

上述代码存在明显的I/O操作逻辑错误：当目标日志文件不存在时，Rewrite(TheLogFile)会创建并打开文件，但紧接着调用Append(TheLogFile)会尝试打开一个已处于打开状态的文件，触发I/O错误，导致后续的日志写入和文件关闭操作无法正常执行。
直接运行EXE时可能因系统默认错误处理机制忽略该错误，而IDE调试时错误会被触发，导致日志生成失败。

修正后的代码：

procedure LogProgram(const aEvent: String);
var
  TheLogFileName, TheLogLine: String;
  TheLogFile: TextFile;
  TheDay, TheMonth, TheYear, TheHour, TheMinute, TheSecond,
    TheMilliSecond: Word;
begin
  TheLogFileName := Format('%s%d.log', [usPATH_LOGS, Trunc(Now)]);
  AssignFile(TheLogFile, TheLogFileName);
  try
    // 二选一：文件存在则追加，不存在则创建
    if FileExists(TheLogFileName) then
      Append(TheLogFile)
    else
      Rewrite(TheLogFile);
      
    DecodeDateTime(Now, TheYear, TheMonth, TheDay, TheHour, TheMinute, TheSecond,
      TheMilliSecond);
    TheLogLine := Format('%d-%d-%d: %d:%d:%d:%d%s%s', [TheYear, TheMonth, TheDay,
      TheHour, TheMinute, TheSecond, TheMilliSecond, #9, aEvent]);
    Writeln(TheLogFile, TheLogLine);
  finally
    // 确保文件始终被关闭
    CloseFile(TheLogFile);
  end;
end;

2. Delphi XE7 IDE相关设置问题 #

即使修正代码，仍需检查以下IDE设置：

• 工作目录不匹配：打开「Project > Options > Run > Working directory」，设置为$(OutputDir)（或EXE实际输出路径）。IDE默认可能使用项目文件所在目录作为工作目录，与直接运行EXE时的工作目录不一致，导致相对路径解析错误。
• 调试器权限限制：尝试以管理员身份运行Delphi XE7 IDE。部分系统路径写入需要管理员权限，直接运行EXE时系统会提示权限提升，但IDE运行时可能无此提示，导致写入失败。
• 调试器I/O设置：打开「Tools > Options > Debugger > Embarcadero Debuggers > Native」，检查是否启用了I/O重定向或错误抑制选项，这类设置可能拦截文件写入操作。

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