Delphi中Inputbox 和Inputquery 函数的使用

本文整理自网络，侵删。

 
inputbox的返回值是，你在输入框中输入的文字。而inputquery的返回值是，你是否点击了确定按钮。它的返回值是布尔型的。如果你在inputbox中一样也不输入，就点击取消的话，就会提示出错，而inputquery就不会。它们前面的两个参数都是一样的，分别是输入框的标题，和提示信息。例:
if inputbox('加法题','7+5','')='12' then
    showmessage('yes')
    else
    showmessage('no')


点取消和不等于该函数的第三个参数都返回false;


var
inputtext:string;
if InputQuery('信息','请输入口令',inputtext)=true then
begin
 end;



通过 InputBox 可获取用户输入的字符串:

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str := InputBox('输入窗口标题', '输入提示', '默认输入内容');
  ShowMessage(str); //显示输入的内容
end;

InputBox 是调用了 InputQuery, InputQuery 是通过一个 var 参数获取新字串:
procedure TForm1.Button2Click(Sender: TObject);
var
  str: string;
begin
  InputQuery('输入窗口标题', '输入提示', str);
  ShowMessage(str); //显示输入的内容
end;

InputQuery 可返回一个 Boolean 值, 可判断用户是确认还是取消, 挺有用的:
procedure TForm1.Button3Click(Sender: TObject);
var
  str: string;
begin
  str := '默认输入内容';
  if InputQuery('输入窗口标题', '输入提示', str) then
    ShowMessage(str); //如果点击了 ok 按钮将显示输入的内容
end;

 

相关阅读 >>

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi 结束360safe和360保险箱进程

Delphi shellexecute openurl 的跨平台实现

Delphi 的编码与解码(或叫加密与解密)函数

Delphi中利用msdasc来配置数据库链接

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

Delphi动态分配指针长度

Delphi 测试字符串读取类: tstringreader

Delphi 高速替换大文本字符串内容

Delphi httpserver 使用方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中Inputbox 和Inputquery 函数的使用