Delphi同目录文本文件检测不存在问题求助

我已将Receipts.txt文本文件保存在Delphi项目的同一目录下，但调用FileExists函数检测时仍提示文件不存在，尝试多种方法均无效，当前使用的代码如下：

var
  iMessage, iCount: integer;
  mFile: Textfile;
  sLine: string;     
begin
  iMessage := MessageDlg('Save receipt to ' + arrMonth[1], mtCustom,
    [mbYes, mbNo, mbCancel], 0);
  if iMessage = mrYes then
  begin
    AssignFile(mFile, 'Receipts.txt');
    if NOT FileExists('Receipts.txt') then
    begin
      ShowMessage('File does not exist');
    end;
    Append(mFile);
    for iCount := 0 to redReceipt.Lines.Count - 1 DO
    begin
      sLine := redReceipt.Lines[iCount];
      Writeln(mFile, sLine);
    end;
    Writeln(mFile, '////////////////');
    CloseFile(mFile);
  end;
end;

以下是几个关键排查方向：

• 确认程序运行时的当前工作目录：Delphi调试或运行时的当前目录不一定是项目文件所在目录（比如默认会指向Debug/Release输出文件夹）。可以在代码中添加ShowMessage(GetCurrentDir());，查看实际的当前路径，确认Receipts.txt是否位于该路径下。

• 改用绝对路径定位文件：相对路径容易受当前工作目录影响，直接用程序所在目录拼接绝对路径更可靠。修改代码如下：

  var
    iMessage, iCount: integer;
    mFile: Textfile;
    sLine: string;
    sFilePath: string;     
  begin
    iMessage := MessageDlg('Save receipt to ' + arrMonth[1], mtCustom,
      [mbYes, mbNo, mbCancel], 0);
    if iMessage = mrYes then
    begin
      sFilePath := ExtractFilePath(ParamStr(0)) + 'Receipts.txt';
      AssignFile(mFile, sFilePath);
      if NOT FileExists(sFilePath) then
      begin
        ShowMessage('File does not exist at: ' + sFilePath);
      end;
      Append(mFile);
      for iCount := 0 to redReceipt.Lines.Count - 1 DO
      begin
        sLine := redReceipt.Lines[iCount];
        Writeln(mFile, sLine);
      end;
      Writeln(mFile, '////////////////');
      CloseFile(mFile);
    end;
  end;
  

  ParamStr(0)返回程序的完整执行路径，ExtractFilePath提取出程序所在目录，这样就能精准定位到项目目录下的Receipts.txt。

• 检查文件属性与权限：确认Receipts.txt未被设置为隐藏属性；若程序运行在受UAC限制的目录（如Program Files），则可能没有读取文件的权限，可将文件移到非系统保护目录测试。

• 调整代码执行顺序：建议先执行FileExists判断，再调用AssignFile，避免系统缓存或函数调用顺序带来的异常。

• 核对文件名一致性：确保代码中的文件名（包括后缀）与实际文件名完全一致，虽然Windows大小写不敏感，但部分特殊场景（如网络共享）可能存在兼容问题。

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