Delphi 中，InputQuery 函数的妙用...

dbyoung2021-04-28 16:49:31 

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/dbyoung/article/details/116236450

版权

一般我们简单的输入提示，用 InputQuery 函数，复杂的就自己建窗体了。
今天无意中看了一下 InputQuery 函数源码。发现比较有趣。

1、标准写法（单个）：

if InputQuery('请输入密码：', '密码：', strResult) then

2、扩展写法（多个）：

if InputQuery('请输入密码：', ['密码：', '重复密码：'], strResult) then

3、密码写法（多个）：

if InputQuery('请输入密码：', [Chr(9) + '密码：', Chr(9) + '重复密码：'], strResult) then