delphi 阅读文本文件时出现I/O错误104

sg24os4d  于 2022-11-23  发布在  其他
关注(0)|答案(1)|浏览(150)

阅读TP(包含图片名称的文件)时出现I/O错误104:

procedure TfrmAvatar.FormShow(Sender: TObject);
var
  sLocation: String;
  TU, TP: textfile;
  sUser: string;
  iTemp: integer;
begin
  sLocation := ExtractFileDir(ExtractFileDir(ExtractFileDir(ParamStr(0))));
  AssignFile(TU, (sLocation + '\Username.txt'));
  Reset(TU);
  Readln(TU, sUser);
  edtUser.Text := sUser;
  CloseFile(TU);

  AssignFile(TP, (sLocation + '\Profile.txt'));
  Reset(TP);
  Readln(TU, sUser);  //Getting 104 here on read
  ShowMessage(sLocation + sUser);
 
  imgAvatar.Picture.LoadFromFile(sLocation + sUser);
  CloseFile(TP);
end;

就像我上面说的,我只是从一个指定的文件TP中阅读一行。我不知道我的错误在哪里。如果很明显,就告诉我。

ckx4rj1h

ckx4rj1h1#

您正在阅读已关闭的文件句柄(TU)。您要做的是

readln(TP, suser);

相关问题