阅读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
中阅读一行。我不知道我的错误在哪里。如果很明显,就告诉我。
1条答案
按热度按时间ckx4rj1h1#
您正在阅读已关闭的文件句柄(
TU
)。您要做的是