如何验证编辑仅限数字＆amp;只有inno设置中的文字？

Question

有没有办法将字符限制为数字并且长度为10而没有空格而另一种编辑只是为了？ 它的电话号码，名称，不需要空格，不知道如何做到这一点。找到一个代码尝试一些方法来实现但不起作用 这是我发现的不允许信件。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key in ['a'..'z']) or (Key in ['A'..'Z'])  then
    Key := #0;
end;

这里不允许数字：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['0'..'9'] then
    Key := #0;
end;

并且没有空格：

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Char(VK_SPACE) then
    Key := #0;
end;

可以在inno中实现类似的东西吗？

Answer 1

您可以编辑Edit1的MaxLength属性以限制字符

Edit1.MaxLength:=10;