delphi - 在DELPHI中读取txt文件的调试器异常通知错误

Question

我遇到了一个我从未见过的错误。

这是我的代码：

procedure TfrmPatientViewer.FormCreate(Sender: TObject);
var
  MyArray : array [1..100] of string;
  iCount : Integer;
  Patients : TextFile;
begin
  AssignFile(Patients, 'patients.txt');
  if FileExists('patients.txt') <> True
    then
      begin
        ShowMessage('Patients.txt does not exist, program shutting down');
        Application.Terminate;
      end;
  iCount := 1;
  while not Eof(Patients) do // <-- HERE'S THE ERROR
    begin
      Readln (Patients, MyArray[iCount]);
      redtOut.Lines.Add(MyArray[iCount]);
      inc(iCount);
    end;
end;

错误显示： Project Phase3P.exe has raised an exception class ElnOutError with message 'I/O error 104'. Proccess stopped。

为什么要这样做，我该怎么做才能使其正常工作？我搜索了一个只能找到有关不同I / O错误的内容，但没有找到这个 104错误。

Answer 1

好的，我在第四次xD校对后发现了我的错误

分配文本文件后，我没有放入reset(patients)。