请高手帮助我!!

felton 2001-09-07 09:02:23
有一段源代码是说的用密码登录窗体的,可是中间有一段不明白谁能解答我呀!!
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文件??多谢了

...全文
121 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zgamer 2001-09-08
  • 打赏
  • 举报
回复
不同的密码文件对应不同类型的用户:管理员跟学生
hnxrm 2001-09-07
  • 打赏
  • 举报
回复
1.根据条件判断,选择不同的密码文件
2.密码文件是自己在程序中写的,或者是别的程序写的,但是你要清楚里面有些什么东西.
3.cfg只是自定义的密码文件扩展名,你也可以叫别的名字.

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧