MaxLength TEdit not working on Android with DELPHI XE7 (Update 1)

Question

Does anyone know why MaxLength TEdit does not work on Android with DELPHI XE7 (Update 1)?

Is there any solution to solve this problem?

Answer 1

There is a problem updating DELPHI XE7 1 (see my QC report 129171 )

You can overcome this with this little code (example for MaxLength = 5):

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

Answer 2

This error I also filed. Fortunately, the bug was fixed in the next version.