最近用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',这回就好使了,我想不明白是怎么回事,请各位帮忙!