var
passfile:textfile;
passstr:string;
begin
assignfile(passfile,'e:\Study\passwrad\mgr.txt');
reset(passfile);
readln(passfile,passstr);
closefile(passfile);
运行在reset(passfile);停止,报错为:
Project Acess.exe raise exception class EInOutError with message
'Invalid filename'.Process stopped.Use Step or Run to continue.
请各位大虾帮忙!!!
passfile:textfile;
passstr:string;
begin
assignfile(passfile,'e:\Study\passwrad\mgr.txt');
reset(passfile);
readln(passfile,passstr);
closefile(passfile);
运行在reset(passfile);停止,报错为:
Project Acess.exe raise exception class EInOutError with message
'Invalid filename'.Process stopped.Use Step or Run to continue.
请各位大虾帮忙!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货