Question

delphi 文字框组件限制输入字数，高手进来玩玩拜托各位大神

我刚学delphi，有个问题不懂，请大家指点一下。 我想在文字框里输入文字的时候，能够限制字数：例如，当字数长度超过20时，弹出提示，截取输入字符的前20位作为保留，并且这时也不能再追加内容，只能删除文字框里一部分的字符才能再输入内容。文字框包括edit、memo等可以输入文字的组件，输入字符包括汉字、数字、字母、符号等等。这应该怎么设置呢？

Answer 1

比如是Edit 则可以在EditChange事件里面写入 procedure TForm1.Edit1Change(Sender: TObject); begin if Length(Edit1.Text) > 20 then begin ShowMessage('长度超出20, 请重新输入'); Edit1.Text := Copy(Edit1.Text, 1, 20); end; end;