使用DELPHI XE7 (update 1)开发的Android应用中，TEdit的MaxLength无法正常工作

Question

4

有人知道为什么在使用DELPHI XE7（更新1）开发Android应用时，TEdit的MaxLength无效吗？

是否有解决此问题的方法？

- user4347231

如果你在创建窗体时在运行时设置它，例如Edit1.MaxLength := xxx，那么它会起作用吗？请注意，该属性仅影响键盘输入。 - LU RD

我在运行时尝试了它，但它不起作用。 :( - user4347231

同样的问题也出现在TMemo中。 - pudnivec74

2个回答

0

我也报告了这个 bug。幸运的是，这个错误在下一个版本中得到了修正。

- user5513451

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- pudnivec74 · Accepted Answer

DELPHI XE7升级1版存在一些问题（请参见我的报告QC 129171）。

您可以使用以下代码解决问题（示例：MaxLength = 5）：

procedure TForm1.Edit1Typing(Sender: TObject);
begin
  if Length(Edit1.Text) > 5 then
    Edit1.Text:= Edit1.Text.Substring(0, 5);
end;