Delphi 中，InputQuery 函数的妙用

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

1、标准写法（单个）：

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

2、扩展写法（多个）：

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

3、密码写法（多个）：

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

有点意思。有趣，有趣！