android - TEdit 的 MaxLength 不适用于使用 DELPHI XE7 的 Android(更新 1)

Question

有谁知道为什么 TEdit 的 MaxLength 在 Android 上与 DELPHI XE7(更新 1)不兼容？

有什么办法可以解决这个问题吗？

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;