很有意思的一个问题,有好奇心的一定不要错过
var
PassWdFile:textFile;
FilePath:string;
FileContent:string;
begin
FilePath := ExtractFilePath(Application.Exename) + 'password.txt ';
if fileexists(FilePath) then
begin
assignfile(PassWdFile,FilePath);
read(PassWdFile,FileContent);
end;
..................
提示I/O ERROR 104,好象是read(PassWdFile,FileContent);的错误,但不知道怎么改

[解决办法]
rewrite(PassWdFile);