这是怎么回事呀?(在线等候 急急!!)

mazefeng81 2002-12-14 02:38:51
最近用DELPHI做了个密码登陆窗口;
算法如下:
var
passwrd:string;
begin
  passwrd:=passworddlg.password.text
try
  passworddlg.showmodal;
  if (passworddlg.ModalResult=mrok) and ( passwrd='aaa') then
   application.Run else
   application.Terminate;
finally
passworddlg.Free;
passworddlg:=nil;
我的本意是用户登陆后输入密码‘aaa’,按OK键进入,可是执行起来却不这样,输入什么都
登陆不上去,我想了半天,将定义passwrd那段去掉了,将passwrd='aaa'直接换成了passwo
rddlg.password.text='aaa',这回就好使了,我想不明白是怎么回事,请各位帮忙!
...全文
24 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
flyingkiller 2002-12-14
  • 打赏
  • 举报
回复
passworddlg.showmodal之前密码还没有输呢,当然取的值不对啦!

5,388

社区成员

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

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