Question

delphi edit文本字符如何限制输入长度？

例如：edit文本限制输入4个字符。即：edit1.text:='1234';当edit1.text:='123456';时弹出消息框：showmessage('超出范围'); 

Answer 1

想限制输入长度：maxlength属性设置为4，则输入内容不超过4字符。
想超长后提示：onChange事件里判断长度,
if Length(Edit1.Text)>4 then showmessage('超出范围');

Answer 2

if length(edit1.text)>4 then
begin
showmessage('超出');
edit1.text:=leftstr(edit.text,4);
end;