Question

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

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

Answer 1

第一中办法是直接限制, Edit1.MaxLength := 4;第二种办法自己来实现, 就用你的例子procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 4 then
ShowMessage('超出范围');
end;