Pascal XE编写的StockBroker程序无法读取stocks.txt数据求助

问题背景 #

使用Pascal XE编写的StockBroker程序可正常运行，但无法读取stocks.txt中的数据。程序需实现股票查看、买卖、退出功能，初始现金10000美元，已提供空文件/有数据文件时的输出截图、完整代码及stocks.txt内容。

常见排查与解决方向 #

• 文件路径匹配
  确认stocks.txt和程序生成的exe文件在同一目录下，或者在代码中指定文件的绝对路径。Pascal默认从当前工作目录读取文件，路径不对会直接导致读取失败。示例：

  AssignFile(stockFile, 'C:\你的项目路径\stocks.txt');
  

• 文件编码兼容
  把stocks.txt保存为ANSI编码，避免使用UTF-8带BOM的格式——Pascal对这类编码的文本文件读取可能出现异常，导致无法识别内容。
• 读取逻辑校验
  检查文件操作代码是否规范，比如先判断文件是否存在，再执行打开和读取操作：

  var
    stockFile: TextFile;
  begin
    if not FileExists('stocks.txt') then
    begin
      Writeln('错误：stocks.txt不存在');
      Exit;
    end;
    AssignFile(stockFile, 'stocks.txt');
    Reset(stockFile);
    // 此处编写你的文件读取逻辑
    CloseFile(stockFile);
  end;
  

  注意读取完成后必须关闭文件，避免资源占用或后续操作异常。
• 目录权限检查
  如果文件放在系统级目录（比如C盘根目录），程序可能没有读取权限，建议把文件移到项目专属文件夹下。

如果以上方法都未解决问题，可以贴出代码中负责读取文件的具体片段，方便进一步定位问题。

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