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

Question

有没有人知道为什么不能在Android上使用DELPHI XE7(更新1)使用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;