Question

我在inno中有代码来检查特定文本框的值是否只包含字母，但代码是抛出编译错误。

close block (']') expected

以下是我的代码。

if not DBPage.Values[0] in ['a'..'z', 'A'..'Z'] then
begin
MsgBox('You must enter alphabets only.', mbError, MB_OK);
end;

DBPage.Values[0]是我的自定义页面中的文本框。

Answer 1

首先，InnoSetup脚本不允许使用常量设置范围。即便如此，你的代码也不会做你想做的事情。使用DBPage.Values[0]您可以访问整个字符串值，而不是您可能想要的单个字符。

如果您不想为所有字母字符编写相当复杂的条件，则可以从Windows API函数IsCharAlpha开始。以下代码显示了如何在代码中使用它：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

var
  DBPage: TInputQueryWizardPage;

function IsCharAlpha(ch: Char): BOOL;
  external 'IsCharAlpha{#AW}@user32.dll stdcall';

function NextButtonClick(CurPageID: Integer): Boolean;
var
  S: string;  
  I: Integer;
begin
  Result := True;
  // store the edit value to a string variable
  S := DBPage.Values[0];
  // iterate the whole string char by char and check if the currently
  // iterated char is alphabetical; if not, don't allow the user exit
  // the page, show the error message and exit the function
  for I := 1 to Length(S) do
    if not IsCharAlpha(S[I]) then
    begin
      Result := False;
      MsgBox('You must enter alphabets only.', mbError, MB_OK);
      Exit;
    end;
end;

procedure InitializeWizard;
begin
  DBPage := CreateInputQueryPage(wpWelcome, 'Caption', 'Description', 'SubCaption');
  DBPage.Add('Name:', False);
  DBPage.Values[0] := 'Name';
end;

出于好奇，以下脚本阻止编辑输入除字母字符之外的任何内容：

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Code]
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif

var
  DBPage: TInputQueryWizardPage;

function IsCharAlpha(ch: Char): BOOL;
  external 'IsCharAlpha{#AW}@user32.dll stdcall';

procedure AlphaEditKeyPress(Sender: TObject; var Key: Char);
begin
  if not IsCharAlpha(Key) and (Key <> #8) then
    Key := #0;
end;

procedure InitializeWizard;
var
  ItemIndex: Integer;
begin
  DBPage := CreateInputQueryPage(wpWelcome, 'Caption', 'Description', 'SubCaption');
  ItemIndex := DBPage.Add('Name:', False);
  DBPage.Values[ItemIndex] := 'Name';
  DBPage.Edits[ItemIndex].OnKeyPress := @AlphaEditKeyPress;
end;

需要查找文本框（编辑框）是否仅包含inno设置中的字母

1 个答案: