TEdit的MaxLength在使用DELPHI XE7的Android上不起作用（更新1）

Question

有没有人知道为什么用DELPHI XE7（更新1）在Android上运行TEdit的MaxLength？

有没有解决方法来解决这个问题？

Answer 1

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;

Answer 2

这个错误我也提交了。幸运的是，错误在下一个版本中得到了纠正。