InpubQuery的高级用法

aroc_lo

于 2021-04-30 21:36:28 发布

阅读量244

点赞数

分类专栏：其它

本文链接：https://blog.csdn.net/aroc_lo/article/details/116309646

版权

其它专栏收录该内容

34 篇文章

订阅专栏

本文介绍了如何在Delphi程序中实现错误提示与密码修改流程，展示了SetLength和InputQuery函数的应用，以及如何使用自定义函数验证用户输入，确保密码安全。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure ShowErrorMsg(Amsg:string);
begin
  Application.MessageBox(PChar(Amsg), 'error', MB_OK);
  abort;
end;

procedure TFrm_Main.Btn_1Click(Sender: TObject);
var
  ss:array of string;
begin
  SetLength(ss,3);
  if InputQuery('密码修改',[Chr(0)+'旧 密 码',Chr(0)+'新 密 码',Chr(0)+'确认密码'],ss,
    function (const Values: array of string): Boolean
    begin
      Result := False;
      if Values[0]<>'123' then ShowErrorMsg('旧密码不正确');
      if Values[1]<>Values[2] then ShowErrorMsg('两次密码不同');
      Result := True;
     end)
  then begin
    ShowMessage('请牢记您的新密码:'+SS[1]);
  end;
end;