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);的错误,但不知道怎么改
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);的错误,但不知道怎么改
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货