Delphi 中，InputQuery 函数的妙用

本文主要是介绍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 函数的妙用的文章就介绍到这儿，希望我们推荐的文章对大家有所帮助，也希望大家多多支持为之网！