Delphi 中,InputQuery 函数的妙用
2021/4/29 18:29:47
本文主要是介绍Delphi 中,InputQuery 函数的妙用,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!
1、标准写法(单个):
procedure TForm7.Button1Click(Sender: TObject); var strResult:string; begin if InputQuery('请输入密码:', '密码:', strResult) then begin caption:= strResult; end; end;
2、扩展写法(多个):
procedure TForm7.FormCreate(Sender: TObject); var strResult: array of string ; begin setLength(strResult,2); if InputQuery('请输入密码:', ['密码:', '重复密码:'], strResult) then begin caption:= strResult[0]; end; end;
3、密码写法(多个):
procedure TForm7.FormCreate(Sender: TObject); var strResult: array of string ; begin setLength(strResult,2); if InputQuery('请输入密码:', [Chr(9) + '密码:', Chr(9) + '重复密码:'], strResult) then begin caption:= strResult[0]; end; end;
这篇关于Delphi 中,InputQuery 函数的妙用的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!
- 2024-09-28微服务架构中API版本控制的实践
- 2024-09-28AI给的和自己写的Python代码,都无法改变输入框的内容,替换也不行
- 2024-09-27Sentinel配置限流资料:新手入门教程
- 2024-09-27Sentinel配置限流资料详解
- 2024-09-27Sentinel限流资料:新手入门教程
- 2024-09-26Sentinel限流资料入门详解
- 2024-09-26Springboot框架资料:初学者入门教程
- 2024-09-26Springboot框架资料详解:新手入门教程
- 2024-09-26Springboot企业级开发资料:新手入门指南
- 2024-09-26SpringBoot企业级开发资料新手指南