Delphi 中怎么设置字符串长度呢,相信有些新手朋友对此并不太清楚,那么到底delphi edit文本字符怎么限制输入长度,下面给大家带来相关解答。
比如:edit文本限制输入4个字符。
即:edit1.text:='1234';
当edit1.text:='123456';时弹出
消息框:showmessage('超出范围');
第一中办法是直接限制, Edit1.MaxLength := 4;
第二种办法自己来实现, 就用你的例子
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 4 then
ShowMessage('超出范围');
end;