请高手帮助我!!
有一段源代码是说的用密码登录窗体的,可是中间有一段不明白谁能解答我呀!!
procedure TForm1.Button1Click(Sender: TObject);
var pwdfile:textfile;
pwdstr:string;
times:integer;
begin
if checkbox1.Checked=true then assignfile (pwdfile,'d:\data\guan.cfg')
else
assignfile(pwdfile,'d:\data\xue.cfg');
reset(pwdfile);
readIn(pwdfile, pwdstr);
closefile(pwdfile);
times:=times+1;
if checkbox1.Checked=true then form6.show
else form7.show;
end
else
begin
if MessageDlg('密码输入错误,是否退出?', mtConfirmation,[mbYes, mbNo],0)
=mrYes then Close
else if times<3 then edit1.setFocus
else
begin
MessageDlg('对不起!请退出。', mtInformation, [mbOk],0);
application.Terminate;
end;
end;
end.
问题就是:if checkbox1.Checked=true then assignfile (pwdfile,'d:\data\guan.cfg')
else
assignfile(pwdfile,'d:\data\xue.cfg');
这两句中间的guan.cfg和xue.cfg文件是什么意思?密码文件是怎样的??为什么要用cfg文件??多谢了