(2条消息) Delphi 中,InputQuery 函数的妙用

dbyoung2021-04-28 16:49:31 
版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
版权

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

1、标准写法(单个):

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

2、扩展写法(多个):

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

3、密码写法(多个):

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

相关推荐