Delphi 7 - 如何使用Inputbox

Question

我正在编写一个程序，您必须在InputBox中输入密码才能访问程序最小功能。但是如果你点击输入框上的取消我的问题，我的程序会给出错误信息。所以我想知道是否有人知道我是如何做到的，因为使用Messagedlg我知道你使用IF。但是我怎样才能用InputBox来做到这一点？

Answer 1

如果对话框被取消，

InputBox()将返回一个空白字符串，例如：

var
  Pass: String;

Pass := InputBox('Password needed', 'Enter the password:');
if Pass <> '' then
begin
  // use Pass as needed...
end;

或者，改为使用InputQuery()，它返回Boolean以指示对话框是否被取消，例如：

var
  Pass: String;

if InputQuery('Password needed', 'Enter the password:', Pass) then
begin
  // use Pass as needed...
end;